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Abstract 


This  report  describes  the  design  and  implementation  of  a 
database  to  store  zooplankton  net  tow  data  and  the  applications 
programming  done  to  update  and  access  the  database  using  the 
Sigma  7  Extended  Database  Management  System.  The  database  con¬ 
tains  information  about  each  tow  (cruise  name,  tow  number,  type 
of  tow,  year,  month,  day,  time  of  day,  longitude,  latitude, 
area  of  tow,  day-night  code);  each  sample  (depth  code;  minimum 
and  maximum  depth;  minimum,  maximum  and  average  values  of 
temperature,  salinity,  oxygen,  light  and  chlorophyll;  total 
biomass;  aliquot  size;  and  volume  of  water  filtered);  each 
species  (family,  genus,  species  names,  and  catch  per  1000  m3). 
Information  can  be  retrieved  by  user-written  applications 
programs  or  with  the  Sigma  7  Interactive  Database  Processor, 
which  can  either  print  a  report  of  the  retrieved  data  or  store 
it  in  a  file  for  further  processing.  As  presently  formulated, 
the  database  can  store  up  to  500  tows  or  samples,  10  families, 
100  genera,  500  species  and  50,000  catch  records. 


Keywords:  M0CNESS  Net  Tows,  CODASYL  Database  for  Zooplankton, 

Zooplankton  Data  Storage  and  Retrieval. 


Woods  Hole  Oceanographic  Institution  Project  Number  10/71.54 
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I.  Introduction 

Extensive  sampling  with  nets  of  the  zooplankton  populations  in  the 
Northwestern  Atlantic  Ocean  between  1972  and  1978,  and  subsequent  laboratory 
analysis  of  the  samples,  have  resulted  in  a  large  amount  of  information 
about  the  abundance  of  species  in  the  samples  and  the  physical  circumstances 
under  which  the  samples  were  collected.  In  order  to  analyze  these  data 
efficiently,  it  became  obvious  that  a  database  and  retrieval  system  had  to 
be  constructed.  This  report  documents  the  implementation  of  such  a  data¬ 
base  and  the  construction  of  applications  programs  to  update  and  access  the 
database.  This  database  relies  on  the  Extended  Database  Management  System 
(EDMS)  which  is  a  part  of  the  operating  system  of  the  Honeywell  Sigma  7 
Computer  at  the  Woods  Hole  Oceanographic  Institution.  The  remainder  of 
this  introduction  is  a  brief  description  of  the  EDMS  system. 


The  Extended  Database  Management  System  consists  of  several  different 
processors,  and  a  group  of  library  subroutines.  The  steps  involved  in 
database  creation  and  use  are: 


1.  The  first  step  is  to  prepare  a  formal  description  of  the  database  to 
be  created,  using  Data  Definition  Language  (DDL).  This  description 
is  processed  by  the  File  Definition  Processor,  DMSFDP.  Two  random 
files  are  created:  a  schema  file  which  is  a  description  of  the  data¬ 
base  used  by  other  processors,  and  a  subschema  file  which  is  used  by 
the  Data  Base  Manager. 

2.  The  second  step  is  to  initialize  the  database,  using  the  processor 
DMSINIT.  This  processor  uses  information  from  the  schema  file  to 
create  a  file  having  the  attributes  specified  in  the  DDL,  but  con¬ 
taining  no  data. 

3.  Information  is  stored  in  the  database,  and  can  be  retrieved,  by 
applications  programs  which  use  a  set  of  library  routines  referred  to 
collectively  as  the  Data  Base  Manager  (DBM). 

4.  The  Interactive  Database  Processor,  IDP,  can  be  used  to  retrieve 
information  from  the  data  base.  It  can  either  print  a  report  of 
retrieved  data,  or  store  it  in  a  file. 

5.  Two  processors  are  supplied  which  facilitate  back-up  of  the  database. 
Saving  the  database  file  is  done  by  DMSDUMP,  and  restoration  is  done 
by  D MS LOAD. 
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6.  There  are  three  Data  Control  Blocks  (DCB's)  through  which  the  system 
accesses  the  various  files. 

F:SCHE  for  the  schema  file  file  name  is  ZOOSCHEM 

FtSSCH  for  the  subschema  file  file  name  is  ZOOPLAN 

F:DB01  for  the  database  file  file  name  is  ZOOSTOR 

Details  about  the  use  of  the  processors  are  included  later  in  this 
report.  It  should  be  noted  that  the  name  of  the  file  containing  the 
database,  and  the  names  of  the  schema  and  subschema  files  are 
contained  in  the  DDL,  and  cannot  be  changed. 


The  following  section  of  this  report  (section  II)  contains  a  complete 
description  of  the  database.  The  following  sections  give  details  about  how 
to  use  the  database.  The  entire  report,  except  perhaps  section  X,  should 
be  read  carefully  before  attempting  to  store  information  in  the  database. 

It  cannot  be  emphasized  too  strongly  that  extreme  care  should  be  taken  in 
preparing  data  to  be  stored  in  the  database. 


a 
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II.  Database  Description 

Our  database  contains  information  about  the  results  of  plankton  tows. 
This  information  includes  data  describing  the  tows,  and  individual  samples 
within  the  tows.  It  also  includes  the  number  of  each  species  found  in 
each  sample. 

The  reasons  for  storing  this  information  in  a  database  are: 

1.  To  avoid  repetition  of  genus  and  species,  and  tow  and  sample 
numbers,  in  every  catch  record. 

2.  To  facilitate  processing  either  by  sample  or  by  species. 

Some  applications  compare  the  catch  from  different  samples, 
while  others  study  the  samples  in  which  a  specific  species 
was  found. 

3.  Relative  ease  of  adding  new  data. 

The  database  is  defined  in  terms  of  groups  and  sets.  A  graphic 
representation  of  the  database  is  given  in  Figure  1.  Each  group  defines  a 
collection  of  related  attributes  which  bear  a  one-to-one  relationship  to 
each  other.  For  example,  information  about  tows  is  a  group;  actual  data 
about  one  specific  tow  is  called  a  group  occurrence.  In  Figure  1,  each 
group  is  represented  by  a  box;  the  group-name  is  printed  in  large  letters 
in  the  middle  of  the  box.  The  first  group,  ZOOHEAD,  is  a  header  group  used 
by  the  Data  Base  Management  routines,  and  contains  no  actual  data. 

The  arrows  in  Figure  1  show  the  links  between  groups.  These  links  are 
called  sets;  the  set-name  is  printed  beside  the  arrow,  and  is  underlined. 
Each  set  points  from  one  owner  group  to  one  member  group.  This  connects 
one  occurrence  of  the  owner  group  to  one  or  more  occurrences  of  the  member 
group.  For  example,  an  occurrence  of  the  TOWDATA  group  (information  about 
a  specific  tow),  would  be  linked  with  one  or  more  occurrences  of  the  sample 
group  (information  about  samples  from  the  tow) .  The  set  linkages  allow 
backward  access;  it  is  possible  for  a  given  SAMPLE  occurrence,  to  find  the 
owner  from  the  TOWDATA  group. 
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These  links  make  it  possible  for  a  user  program  to  access  all  samples 
(and  tows)  in  which  a  given  species  occurred,  or  to  find  all  species 
present  in  a  given  sample. 

The  order  in  which  group  occurrences  are  accessed  depends  on  the  data¬ 
base  definition  and  on  the  order  in  which  the  occurrences  were  stored. 
Occurrences  of  the  FAMILY,  GENUS,  and  TOWDATA  groups  will  be  accessed  in 
the  reverse  order  to  which  they  were  stored.  Occurrences  of  these  groups 
can  also  be  accessed  individually  by  name.  Occurrences  of  the  SPECIES  and 
SAMPLE  groups  will  be  accessed  in  the  same  order  in  which  they  were  stored. 
Occurrences  of  these  two  groups  cannot  be  accessed  except  through  an 
occurrence  of  the  group  that  owns  the  set  of  which  they  are  members.  For 
example,  it  is  not  possible  to  access  a  species  name  (or  the  catches 
associated  with  it),  except  through  the  name  of  the  genus  to  which  the 
species  belongs. 

Details  of  the  items  included  in  each  group,  maximum  number  of 
occurrences,  and  other  parameters,  are  included.  Knowledge  of  the  database 
structure,  and  items  included  in  each  group,  are  required  for  use  of  the 
Interactive  Database  Processor  (IDP). 


GROUP  NAME: 


TOWDATA 


-  6  - 


CONTENTS:  Information  pertaining  to  tow 

Member  of  TOWSET 
Owner  of  SAMSET 


Item 

Name 

Contents 

Type 

#  Words 

Comments 

CRUISE 

cruise  name 

Alpha, 4 

1 

4  characters  to  identify  cruise 

TOWNUM 

tow  number 

Alpha, 4 

1 

4  character  tow  number 

TOWTYP 

type  of  tow 

Alpha, 4 

1 

4  character  tow  type 

FAMCODE 

code  to  identify 
families 

Integer 

1 

each  bit  corresponds  to  a 
family 

YEAR 

year 

Integer 

1 

2  digit  year 

MONTH 

month 

Integer 

1 

2  digit  month 

DAY 

day  of  month 

Integer 

1 

TIME 

time  of  day 

Integer 

1 

24-hour  clock  format 

LONGTUDE 

longitude 

Real 

1 

+  for  east,  -  for  west 

LATUDE 

latitude 

Real 

1 

+  for  north,  -  for  south 

REGION 

area  of  tow 

Alpha,  4 

1 

user-selected  code 

NITEDAY 

day-night  code 

Alpha, 1 

1 

D  for  day,  N  for  night 

Total  12  words  of  data 

4  words  for  pointers 


Maximum  number  of  occurrences  anticipated  =  500 
*  Control  items  for  retrieval  of  group  occurrences 


GROUP  NAME: 


SAMPLE 


CONTENTS:  Information  pertaining  to  sample 

Member  of  SAMSET 
Owner  of  SAMCAT 


Item 

Name 

Contents 

Type  i 

V  Words 

Comments 

DEPCODE 

depth  code 

Alpha, 4 

1 

To  identify  integrated  samples 

DEPMIN 

minimum  depth 

Integer 

1 

Minimum  depth  of  sample 

DEPMAX 

maximum  depth 

Integer 

1 

Maximum  depth  of  sample 

TEMIN 

minimum  temperature 

Real 

1 

TEAVG 

average  temperature 

Real 

1 

TEMAX 

maximum  temperature 

Real 

1 

SALTMIN 

minimum  salinity 

Real 

1 

SALTAVG 

average  salinity 

Real 

1 

SALTMAX 

maximum  salinity 

Real 

1 

OXMIN 

minimum  oxygen 

Real 

1 

OXAVG 

average  oxygen 

Real 

1 

OXMAX 

maximum  oxygen 

Real 

1 

LIGHTMIN 

minimum  light 

Real 

1 

LIGHTAVG 

average  light 

Real 

1 

LIGHTMAX 

maximum  light 

Real 

1 

CHLRMIN 

minimum  chlorophyl 

Real 

1 

CHLRAVG 

average  chlorophyl 

Real 

1 

CHIRMAX 

maximum  chlorophyl 

Real 

1 

BIOMASS 

total  biomass 

Real 

1 

ALIQUOT 

aliquot  size 

Real 

1 

Fraction  of  sample  studied  (8=1/8) 

VOLF I L 

volume  of  water 

Real 

1 

In  cubic  meters 

UNDEF 

unde  fined 

Integer 

5 

Room  for  expansion 

Total 

26  words  of  data 

4  words  for  pointers 


Maximum  number  of  occurrences  anticipated  =  500 
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GROUP  NAME:  FAMILY 

CONTENTS:  Names  of  Families  included  in  data  base 

Member  of  FAMSET 
Owner  of  GENUSET 


Item 

Name 

Contents 

Type 

#  Words 

Comments 

*  FAMNAME 

Family  name 

Alpha, 17 

5 

Names  can  have  up  to 
17  characters 

Total 

5  words  of  data 

4  words  for  pointers 

Maximum  number  of  occurrences  anticipated  =  10 
*  Control  item  for  retrieval  of  group  occurrence. 
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GROUP  NAME :  GENUS 

CONTENTS:  name  of  each  Genus  included  in  database 

Member  of  GENUSET 
Owner  of  SPECSET 

Item  Contents  Type  #  Words  Comments 

Name  ______  _____  _  _ 

*  GENAME  Genus  name  Alpha, 18  5  Up  to  18  characters 

Total  S  words  of  data 

4  words  for  pointers 

Maximum  number  of  occurrences  anticipated  =  100 
*  Control  item  for  retrieval  of  group  occurrence. 
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GROUP  NAME:  SPECIES 

CONTENTS:  name  of  each  Species  found 


Member  of 

SPECSET 

Owner  of 

SPECAT 

Item 

Name 

Contents 

Type  #  Words 

Comments 

SPENAME 

species  name 

Alpha, 16  4 

Up  to  16  characters  for 

species 


Total  4  words  for  data 

4  words  for  pointers 

Maximum  number  of  occurrences  anticipated  =  500 
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GROUP  NAME :  CATCH 

CONTENTS:  number  of  species  in  sample 


Member 

of 

SPECAT 

Member 

of 

SAMCAT 

Item 

Name 

Contents 

Type 

It  Words 

Comments 

NPCUM 

catch  per  1000 
cubic  meters 

Real 

1 

Can  always  go  back  to  count 

Note: 

For  integrated  samples 

(Depth  code  =  99) 

this  means  catch 

per  1000  meters  of  depth  per  1000  cubic  meters. 

Total  1  word  of  data 

4  words  for  pointers 

Maximum  number  of  occurrences  anticipated  =  50,000 


III.  Recommended  Operating  Procedures 


A  database  is  different  from  an  ordinary  file.  It  is  not  possible  to 
enter,  delete,  or  change  information,  except  through  software  created  for 
the  purpose.  Program  ZOOPUP  has  been  written  to  update  the  ZOOSTOR  database. 
Before  using  ZOOPUP  to  add  information,  Program  SPLECK  should  be  used  to 
check  for  errors  in  the  input  file. 

The  operations  required  fall  into  two  categories:  those  that  must  be 
done  once  to  get  started,  and  those  that  are  repeated  for  every  update. 
Operations  in  the  first  category  are: 

1.  Run  DMSFDP  to  create  the  schema  and  subschema  files. 

2.  Run  DMSINIT  to  create  and  initialize  the  database  file. 

3.  Run  ZOOPUP  to  add  Family,  Genus,  and  Species  names  to  the 

database. 

Operations  which  will  be  performed  periodically  are: 

1.  Run  Program  SPLECK  to  check  the  input  file. 

2.  Run  Program  PLANKINT  if  necessary,  to  create  integrated 

samples. 

3.  Run  ZOOPUP  to  add  new  information  to  the  database. 

4.  Use  I DP,  or  a  test  program,  to  see  if  the  previous  operation 

was  successful. 

5.  Use  DMSDUMP  to  save  database  on  labelled  tape. 

Accessing  the  information  can,  of  course,  be  done  at  any  time,  and 
presents  no  danger  to  the  integrity  of  the  data. 

The  following  recommendations  should  be  given  consideration: 

1.  Keep  all  runs,  plainly  labelled  as  to  what  they  are. 

2.  Keep  a  notebook  of  updates. 

Do  not  enter  data  directly  from  cards.  Always  copy  the  cards 
to  a  file,  and  use  Program  SPLECK  to  check  for  errors,  until 
none  are  found. 


3. 
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Do  not  try  to  add  all  your  data  in  one  run.  Try  one  cruise 
at  a  time. 

Be  sure  to  use  FILECAT  as  needed,  so  your  schema,  subschema, 
and  database  files  will  not  be  purged. 

Keep  two  labelled  tapes  for  backup  with  DMSDUMP.  Alternate 
their  use,  so  you  will  always  have  the  two  most  recent  updates. 


m 
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IV.  To  Initialize,  Store,  and  Restore  Database 
Use  of  Auxiliary  Processors 


This  section  describes  the  use  of  processors  to  initialize,  save,  and 
restore  a  database. 


A.  DMSFDP 

The  first  step  is  to  process  the  Data  Definition  Language  description 
of  the  database,  and  create  the  schema  and  subschema  files.  This  is 
accomplished  by  DMSFDP.  The  following  job  set-up  should  be  used: 

.'JOB 

! LIMIT  (CORE, 20) 

! SET  M: SI  /FILEDESC 
.' DMSFDP 

The  file  definition,  written  in  DDL,  is  read  through  the  M:SI  DCB. 

The  schema  and  subschema  files  are  created.  If  schema  and/or  subschema 
files  with  the  same  names  already  exist,  they  must  be  deleted. 


B.  DMSINIT 

This  processor  must  be  run  before  information  can  be  stored  in  the 
database.  It  creates  a  file  having  the  characteristics  specified  in 
the  file  definition,  but  containing  no  data.  The  job  set-up  is: 

!  JOB 

.'LIMIT  (CORE,  20) 

.'SET  F:SCHE  /ZOOSCHEM 
! SET  F : DB01  /ZOOSTOR 
.'DMSINIT 

DMSINIT  can  also  be  used  to  reinitialize  all,  or  part  of,  an  existing 
database.  In  this  case,  one  data  card  must  be  added  to  the  above  job: 

AREA=Z00ST0R  RANGE=(pl,p2) .  where  pi  and  p2  are,  respectively, 

the  first  and  last  pages  to  be 
reinitialized. 

!  EOD 

DON'T  forget  the  period  at  the  end  of  the  data  card. 
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C .  DMSDUMP 

After  every  successful  update  to  the  database,  the  new  version  should 
be  stored  on  a  labelled  tape.  This  is  accomplished  by  DMSDUMP: 

.'JOB 

.'LIMIT  (9T,  1) ,  (CORE, 20) 

.'MESSAGE  9T  tapid  ‘WRITE* 

.'SET  F:DUMP  LT#tapid/filid 
.'SET  F : SCHE  /ZOOSCHEM 
! SET  F : DB01  /ZOOSTOR 
» DMSDUMP 
DUMP. 


D.  D MS LOAD 

If  a  job  to  update  the  database  aborts  for  any  reason,  the  database 
will  not  be  properly  closed,  and  will  not  be  able  to  be  used.  When 
(or  if)  this  happens,  it  will  be  necessary  to  restore  the  previous 
version.  This  is  accomplished  by  DMSLOAD: 

.'JOB 

! LIMIT  (9T , 1) , (CORE , 20) 

.'MESSAGE  9T  tapid  INPUT 
.'SET  F : LOAD  LT#tapid/filid 
.'SET  F : SCHE  /ZOOSCHEM 
.'SET  F:DB01  /ZOOSTOR 
.'DMSLOAD 
LOAD. 

Note:  DMSLOAD  will  not  work  correctly  if  the  labelled  tape  file  name 
is  the  same  as  the  database  file  name.  Do  not  use  ZOOSTOR  as  the 
labelled  tape  file  name. 


1 


l 


16 


V.  Formats  for  Input  Data 

There  are  two  different  kinds  of  files  used  by  the  three  programs 
(SPLECK,  PLANKINT,  and  ZOOPUP).  The  first  file  contains  Family,  Genus,  and 
Species  names,  and  the  second  file  contains  Tow,  Sample,  and  Catch  informa¬ 
tion.  Programs  SPLECK  and  ZOOPUP  use  both  files;  Program  PLANKINT  requires 
only  the  tow  file. 

The  family  file  is  very  simple.  It  contains  one  record  for  each  species. 
The  records  should  be  sorted  by  Family  and  Genus.  The  record  format  is: 


columns 

1-17 

21-38 

41-56 


Contents 
Family  name 
Genus  name 
Species  name 


The  tow  file  contains  four  different  kinds  of  records,  distinguished  by 
the  first  four  characters  of  the  record.  The  kinds  of  records,  and  record 
identifiers,  are: 

T  Tow  record 

51  Required  (first)  sample  record 

52  Optional  (second)  sample  record 

C  Catch  record 


These  records  should  be  in  the  following  order: 


Tow  record  for  first  tow 

Sample  record  1  for  first  sample  of  tow 
Sample  record  2  for  first  sample  of  tow 
Catch  record  for  sample 
Catch  record  for  sample 

Sample  record  1  for  second  sample  of  tow 
Sample  record  2  for  second  sample  of  tow 
Catch  record  for  sample 
Catch  record  for  sample 


i 

i 


Tow  record  for  second  tow 

Sample  record  1  for  first  sample  of  tow 
Sample  record  2  for  first  sample  of  tow 
Catch  record  for  sample 
Catch  record  for  sample 

etc. 


The  formats  of  the  different  kinds  of  records  are  given  in  Tables  1,  2, 
3,  and  4.  Figure  2  contains  a  graphical  layout  of  all  four  kinds  of  records. 


Samples  of  both  kinds  of  files  are  included. 
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Columns 

1 

2-4 

5-8 

9 

10-13 

14 

15-18 

19 

20-21 

22-23 

24-25 

26 

27-30 

31 

32-35 

36 

37 

38-44 

45 

46-51 

52 

53-72 


TABLE  1 

Tow  Record  Format 


Contents _ 

T  to  identify  tow  data 
blank 

Cruise  name,  4  characters  alpha 
blank 

Tow  name,  4  characters  alpha 
blank 

Tow  type,  4  characters  alpha 
blank 

Year,  2  digits 
Month,  2  digits 
Day  of  month,  2  digits 
blank 

Time,  24-hour  clock 
blank 

Region,  4  characters  alpha 
Day-night  code,  1  character  alpha 
blank 

Longitude,  of  form  ixxx.xx 
blank 

Latitude,  of  form  ixx.xx 
blank 

In  each  2  columns,  punch  a  code  corresponding 
to  one  of  the  Families  identified.  If  only 
one  Family,  there  will  be  only  1  code. 

Could  be: 

01  =  Euphausids 
02  =  Copepods 
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TABLE  2 

Format  of  Sample  Record  1 


Columns 


Contents 


1-2 

3-4 

5-8 

9 

10-14 

15 

16-20 

21 

22-24 

25 

26-31 

32-38 

39 

40-44 

45 

46-50 

51 

52-56 


SI  to  identify  first  sample  record 
blank 

Depth  code,  up  to  4  characters,  alpha 
blank 

Minimum  depth  (right- justify) 
blank 

Maximum  depth  (right- justify) 
blank 

Aliquot  size,  integer 
blank 

Volume  of  water  filtered  (cubic  meters) 

Biomass 

blank 

Minimum  temperature  N 
blank 

Average  temperature  V, 
blank 

Maximum  temperature 


Punch  decimal 

XX.  XX 

or 

-X.XX 
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TABLE  3 


Format  of  Sample  Record  2 


Columns 

Contents 

1-2 

S2  to  identify  sample  record  2 

3-4 

blank 

5-10  ^ 

11-16 
17-22  ) 

Minimum,  Average,  and  Maximum  salinity 
>  form  xx. xxx  or  xx.xx  punch  decimal 

23 

blank 

24-27  ) 
28-31  . 
32-35  J 

Minimum,  Average,  and  Maximum  oxygen 
^  form  x.xx  or  xx.x  punch  decimal 

36 

blank 

37-43  ^ 

44-50 
51-57  J 

i  Minimum,  Average,  and  Maximum  light 

?  form  .xxExx  or  xx.Exx 

58 

blank 

59-63  > 

64-68 
69-73  j 

1  Minimum,  Average,  and  Maximum  chlorophyl 

?  form  xx.xx  or  x.xxx  punch  decimal 

Columns 

1 

2-4 

5-25 

26-41 

45-50 


TABLE  4 

Catch  Record  Format 

Contents _ 

C  to  identify  catch  record 
blank 

Genus  name 
Species  name 
Number  (free  field) 


INPUT  FORMATS  FOR  READTOW 
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SAMPLE  OF:  FAMILY/GENUS/SPECIES  INPUT 


EUPHAUSIDS 

.  bentheuphaus I A 

AMBLYBPS 

EUPWAUSIDS 

EUPHAUSIA 

AMERICANA 

EUPHAUSIDS 

EUPHAUSIA 

bkevis 

EUPHAUSIDS 

EUPHAUSIA 

GIBbOlDES 

EUPHAUSIDS 

EUPHAUSI A 

hemIuibba 

EUPHAUSIDS 

F-UPHAUSIA 

KR0HNI I 

EUPHAUSIDS 

EUPHAUSIA 

MUTICa 

EUPHAUSIDS 

EUPHaUSIA 

PSeUDBQIBBa 

EUPHAUSIDS 

EUPHAUSIA 

T£N£KA 

EUPHAUSIDS 

HEQAMYCtIPHANeS 

NBRVeUJCA 

EUPHAUSIDS 

N£MAT»BRaMCHiBN 

BBBPIS 

EUPHAUSIDS 

NEHAT0BRAMCHIBM 

FUEAIPIES 

EUPHAUSIDS 

N£Mat8BRANCHI0N 

SeXSPINBSUS 

EuPHAuSIqS 

NEHATBSCEuIS 

ATlANTICA 

EUPHAUSIDS 

NEHATBSCELIS 

MEGALBPS 

EUPHAUSIDS 

NEHatBSCELIS 

HICHBPS 

EUPHAUSIDS 

'vIEMAtOSCeLIS 

TENEL.UA 

EUPHAUSIDS 

STYU8CHEIRBN 

ABBHeVIATUM 

EUPHAUSIDS 

STYU8CWEIR0N 

affine 

EUPHAUSIDS 

STYUBCHeIRBN 

CARINATUM 

EUPHAUSIDS 

STYUeCHElRBN 

EUBNbATUM 

EUPHAUSIDS 

STYL8CHEIR0N 

LBNlil  CBHNe 

EUPHAUSIDS 

STYL8CHEIRBN 

MAXIMUM 

EUPHAUSIDS 

STYLBCHeIRBN 

SUHM I I 

EUPHAUSIDS 

THYSamBeSSA 

GHeUAHIA 

EUPHAUSIDS 

THYSaNBeSSA 

LBNUICaUDaTA 

EUPHAUSIDS 

THYSANSeSSA 

parva 

EUPHAUSIDS 

THYSANBPBOA 

ACUT1FRONS 

EUPHAUSIDS 

THYSaNBPBDA 

AEOUALIS 

euphaysios 

thysanbpbda 

CRISTATA 

EUPHAUSIDS 

THYSaNBPBDA 

MBNOCANTHA 

EUPHAUSIDS 

thysanbpbda 

bbtusifhbns 

EUPHAUSIDS 

thysanbpbda 

BRIENTALIS 

EUPHAUSIDS 

THYSANBPBDA 

PECTINATA 

EUPHAUSIDS 

THYSANBPBDA 

TRICUSPIDaTa 

C8PEP0DS 

PAReUCWEATA 

NBRYtUICA 
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SAMPLE  OF:  TOW/SAMPLE/CATCH  INPUT 


T 

<062  *5  M0C1  *'61204  2243  CORN  •( 

D65. 33  *36. 1 c 

!  01 

si 

1  900  100n_ 

_1 

_ 294 _ 85  »Q 

_ 5  *  00  5* 1C 

b*2b 

S2 

35*00  3b«00  35#oo 

C 

THYSANetSSA 

L9NSICAU0ATA 

2 

c 

THYSANSESSA  _  _ _ 

PARVA  .  .  _ 

_  d  . . , 

si 

2  700  900 

1 

677  26*6 

5*25  6*25 

7*75 

S2 

35*00  3b « 04  35. ng 

c 

NEMATBSCELIS 

MFGAL9PS 

27 

C 

NrMATBSCELl S 

H \ CR0PS 

i 

C 

THYSAM9ESSA 

PARVA 

10 

C  _ 

.  THYSAMB^BDA  _ 

ACUT I FH0NS  .  . 

1 

SI 

3  550  7QO 

1 

542  27.7 

7» 7b  8*50 

10*00 

S2 

35*08  3b, 36  35.08 

c 

FUPHAUSI A 

TFNER A 

1 

C 

nematbscelis 

MEGAL0PS 

173 

C 

TMYSAN8ESSA 

GREUARI A 

1 

r 

.JTHYSANBESSA 

PARVA 

17 

SI 

4  4  qq  55n 

1 

623  32.1 

10.00  10*50 

13.2b 

S2 

35*38  3b. 44  35* Ag 

C 

NEMATBSCFL I S 

megalbps _ 

157 

C 

nematbscelis 

M I CRSPS 

l 

C 

nematbscelis 

tenella 

1 

_C_ 

THYSANOESSA 

-PARVA 

3 

SI 

5  ^00  400 

1 

472  25*4 

13.2b  14.00 

14* 7b 

S2 

35.68  3b. 78  35.  «6 

C 

NEMATBSCELIS 

MEGAL0PS 

78 

C 

STYLOCHEIRBN 

elbngatum 

1 

C 

THYSANQESSA 

PARVA 

1 

C 

THYSANOPBOA 

8BIUSIFR0NS _ 

1 

si 

6  200  300 

1 

455  48.4 

14.7b  15*75 

16.75 

S2 

35.86  36.02  36.17 

c 

emrwausia 

krrhni I 

1 

c 

nematbscelis 

MEGALBPS 

60 

c 

STYL6CHEIW0N 

ABBREVI ATUM 

2 

c 

ST  YLOChe I  R0N 

AFFINE 

b 

c 

STYL0CHEIR8N 

elbngatum 

11 

c 

TMYSAN0ESSA 

GHEGARI A 

2 

c 

THYSAN8H0DA 

AEQUALIS 

3 

SI 

7  100  200 

1 

496  30.2 

16,7b  17*75 

20*30 

S2 

36.17  36.18  36.06 

c 

EUPHAUSIA 

HEMIGIUBA 

13 

c 

EUPHAUSIA 

KR0HNI l 

17 

c 

EUPHAUSI A 

TENERA 

2 

c _ 

NEMATBSCELIS 

MEGALBPS 

35 

c 

ST YL0CHE I R0N 

ABBKEVI ATUM 

4 

c 

STYL8CWEIR0N 

AFFINE 

10 

.  C- 

STYL0CHEIRBN 

CAR  I  NAT  LI* 

44 

c 

STYLSCHElReN 

elbngatum 

2 

c 

STYL9CHEIR9N 

SUHMJI 

4 

c 

TMYSANQfcSSA 

UREGARIA 

1 

c 

THYSAN0ESSA 

L0NU ICAUDATA 

1 

c 

THYSANBH80A 

AEQUALIS 

3 

si 

8  1  100 

1 

473  59.2 

20*30  20 • 30 

20*30 

S2 

36.2?  36.?2  36.i»2 

c 

EUPHAUSIA 

AMERICANA 

1 

C 

EUPHAUSIA 

BREVIS 

16 

c 

EUPHAUSIA 

HEMIGJBBA 

17 

c 

EUPHAUSIA 

KR0HNI I 

12 
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VI.  Pre-processing  Programs 

Two  pre-processing  programs  have  been  written,  one  or  both  of  which 
should  be  run  before  additions  of  data  to  the  database.  The  first  program, 
SPLECK,  should  be  run  at  least  once  before  each  run  of  ZOOPUP,  to  check  for 
errors  in  the  input  file.  It  checks  for  spelling  errors  in  Genus  and 
Species  names,  and  for  valid  values  in  numeric  fields.  It  should  be  run 
until  no  errors  are  found. 

The  second  program,  PLANKINT,  is  used  for  tows  which  include  samples 
from  different  depths.  For  each  such  tow,  it  creates  an  additional  sample, 
with  a  depth  code  of  '99',  combining  the  catch  data  from  all  other  samples 
of  the  tow.  For  the  added  sample,  the  number  included  on  the  catch  record 
is  the  number  of  species  caught  per  1000  meters  of  depth,  per  1000  cubic 
meters  of  water  filtered. 


Reports  of  these  two  programs  follow. 


NAME: 


SPLECK 


TYPE :  Main  program 

PURPOSE:  This  program  checks  for  errors  in  a  file  containing  tow,  sample, 
and  catch  information  before  the  data  in  the  file  is  added  to 
the  ZOOSTOR  database. 

MACHINE:  Sigma  7 

SOURCE  LANGUAGE:  Extended  Fortran  IV 

PROGRAM  CATEGORY:  Data  processor 

DESCRIPTION: 

When  storing  information  in  a  database,  it  is  extremely  inconvenient 
to  encounter  errors  and  inconsistencies  in  the  data  to  be  stored. 

This  program  reads  information  from  the  files  containing  input  data, 
and  checks  for  such  errors.  Only  when  a  file  has  been  found  free  of 
errors  should  it  be  input  to  Program  ZOOPUP,  which  will  store  the 
information  in  the  database. 

There  are  two  files  which  are  required  by  SPLECK.  The  first  is  the 
file  containing  Family,  Genus,  and  Species  names,  called  the  Family- 
file.  The  second  file,  called  the  Tow-file,  contains  information 
about  individual  tows  and  samples,  including  genus  and  species  names 
of  plankton  collected.  Each  genus-species  name  must  be  identical  to 
a  genus-species  from  the  Family-file. 

Numeric  values  and  other  fields  which  are  checked  for  the  different 
kinds  of  records  in  the  Tow-files  are: 

1.  Tow  Record 

a.  Year  must  be  between  60  and  85. 

b.  Month,  day,  time,  longitude,  and  latitude  must 
contain  appropriate  values. 

2.  First  sample  record 

a.  Maximum  depth  >  minimum  depth 

b.  Aliquot  >  0 

c.  Volume  of  water  >  0 

d.  Biomass  j>  0 

e.  Min.  temp.  <_  average  temp.  £  max.  temp. 

3.  Second  sample  record 

For  each  of  the  four  variables,  the  following  check  is  made 
0  minimum  £  average  <  maximum 


4. 


Catch  record 


a.  The  number  caught  must  be  >  0. 

b.  The  genus-species  must  exist  in  the  Family-file. 

In  addition,  each  record  is  checked  to  be  sure  blanks  are  in  the 
correct  locations,  and  that  the  record  order  is  legal. 


INPUT:  A.  Up  to  200  records  of  a  Family-file  are  read  into  .the  program 

through  the  F:1  Data  Control  Block.  The  record  format  is 
described  in  Section  V  of  this  report. 

B.  Records  from  a  Tow-file  are  read  through  the  F : 2  Data  Control 
Block.  Four  kinds  of  data  records  are  distinguished  by  T, 

SI,  S2,  or  C  beginning  in  column  1.  The  record  formats  are 
completely  described  in  Section  V  of  this  report. 


OUTPUT :  Status  messages  and  error  messages  are  written  to  the  printer 

through  the  F:108  DCB.  These  are  described  under  ERRORS  5 
DIAGNOSTICS,  below. 


USAGE :  A.  The  following  job  set-up  should  be  used  to  form  a  load  module. 

!  JOB 

.'SET  F:  1  /FAMFIL 
I SET  F: 2  /TOWFIL 
.'FORTRAN  NS, GO 

source  deck  of  SPLECK 
.'LYNX  $ ; .  1JFL; .  3  OVER  SPLECK 


B.  The  job  set-up  to  run  the  program  as  a  batch  job  should  be: 

.'JOB 

.'SET  F :  1  /famfil 
.'SET  F : 2  /towfil 
.'RUN  (LMN, SPLECK) 

C.  The  program  can  also  be  run  on-line,  by  use  of  the  following 
commands : 


.'SET  F :  1  /famfil 
.'SET  F :  2  /towfil 
.'S  SPLECK 
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RESTRICTIONS: 

The  Family- file  may  contain  no  more  than  200  records. 


STORAGE  REQUIREMENTS: 

The  program  will  run  with  a  core  limit  of  7K. 


SUBPROGRAM  REQUIRED: 


A. 

Fortran 

Library: 

ABORTSET 

BUFFERIN 

B. 

Library 

in  account 

3:  DATE 

SETBREAK  COMPAR  SCAN 

C. 

Library 

in  account 

1JFL  (soon 

to  be  added  to  account  3  library) 

I DEVICE 


OPERATIONAL  ENVIRONMENT:  Uses  the  CP-V  Operating  System. 


Device 


Function 


Special  requirements 


disk  file 
disk  file 
line  printer 


Family- file  input 
Tow- file  input 
diagnostic  output 


F : 1  DCB 
F : 2  DCB 
F : 108  DCB 


PROGRAM  LOGIC: 

A.  Initialization 

1.  Print  program  name  and  version 

2.  Check  input  files 

3.  Initialize  SETBREAK  and  ABORTSET 

4.  Read  genus-species  names  from  Family-file  and  store 

B.  Process  Tow-file 

1.  Read  record  and  check  record  type 

2.  Check  record  for  errors 

C.  Termination 


1.  Print  summary 

2.  STOP 
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TIMING:  Undetermined,  but  fast. 

ERRORS  5  DIAGNOSTICS: 

A.  The  following  errors  will  result  in  termination  of  the  program. 

1.  “FAMILY  FILE  NOT  AVAILABLE 

SET  F: 1  WAS  NOT  ISSUED 

2.  “TOW  FILE  NOT  AVAILABLE 

SET  F : 2  WAS  NOT  ISSUED 

3.  **READ  ERROR  ON  RECORD  _ . 

This  indicates  an  error  in  reading  the  tow  file. 

4.  ‘‘FAMILY  FILE  TOO  LONG 

There  may  be  no  more  than  200  records  in  the  family  file. 

B.  For  each  record  from  the  tow-file  wnich  contains  one  or  more 
errors,  three  or  more  lines  are  printed.  The  first  line  contains 
the  digits  1234567890  repeated  across  the  page,  to  identify 
column  numbers.  The  second  line  contains  the  record  number,  and 
contents  of  the  record.  The  third  line  (and  additional  lines  if 
needed)  tells  the  kind  of  error  detected.  These  messages  are: 

1.  RECORD  OUT  OF  ORDER 

2.  UNRECOGNIZED  RECORD  TYPE 

3.  BLANK  CHARACTER  NOT  FOUND  AT  COLUMN  _ 

4.  GENUS/SPECIES  NAME  NOT  IN  FAMILY  FILE 

5.  A  variable  name  and  value,  if  the  variable  has  an  incorrect 
value. 

C.  If  a  DECODE  error  occurs,  the  system  will  print  an  error  message. 
This  is  followed  by  a  program  message: 

ERROR  OCCURRED  ON  RECORD  # _ 

Sample  output,  including  error  messages  of  different  kinds,  is  included. 


PROGRAMMER : 
ORIGINATOR: 
DATE: 

REFERENCES : 


John  F.  Loud  and  Mary  Hunt 
Peter  Wiebe 
November,  1979 

Complete  documentation  of  ZOOSTOR  database. 
Reports  of  W.H.O.I.  Sigma  7  programs. 
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SAMPLE  OUTPUT  FROM  SPLECK: 


£KWE£K _ Y£*S I0N  U _ 12/03/79  13:37:47 _ 

NUMBER  0F  FAMILY  RECORDS  READ!  35 

__  _  ~5  ^  ?  g  g  ^  ^  9  3 4  ^  jV56  7^  90123^5 6  7  0901234067090123  ♦S678  18 

A  29  C  NEMAT0BRACWI6N  tJ00PlS  1 

♦♦GENUS/S^ECIES  name  NQT  IN  FAMILY  FILE _ 

123456789013345678901 2345678901 23456 78901 2345678901 234567*901 2 

A _ 57  T _ A271  7  MTRKi  72Q924  2245  NSSN  -68*28  35*16 _ 

♦♦BLANK  CHARACTER  V0T  FOUND  AT  COLUMN  #14 

_ 12345678901 3345678901 2345678901 g345fe7a90l2345ft789Ql 23A56789Q15 

A  123  T  A271  <8  M7RN  72Q9H7  0445  NSSN  -68*27  y6*23 

LATITUDE  ■  96*2300 


12345678901 33456789012345678901 ?34567«901 53 456789Q123456789012 
A  134  0  STYLOCHC  JWQN  CARJNATU^  25 

♦♦UNRECOGNIZED  RECARO  TYPE _ _ _ 


12345678901 334567890123456789012345678901 2345678901 2345678901? 

_* _ 1 57  _  SI  99  lnpQ  8Q5  2  2195 _ 

M INDEPTH  •  1000 
MAXDEPTH  «  805 

1234567890l934567890l234567890l23456789oi234b67890lH3W6T89ol2 

A  246  C  EUPHAUSTA  BREVIS  3 

♦♦RECORD  PUT  BF  BRngR _ 


12345678901334567890123456789012345678901234567890123456789012 

A  279  C  MEGANYTTPHANE9  N0RVEGICA  1 

♦♦GENUS/SPECIES  NAME  NOT  IN  FAMILY  FILE. 

♦♦END  OF  FILE  BN  Data  KeCBRD  INPUT  AFTER  279  REC0KOS  PR0CESSED 
♦♦  7  ERR0HS“OETeCTED  ~  - - 

♦STOP*  0 
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NAME:  PLANKINT 

TYPE :  Main  program 

PURPOSE :  To  find  integrated  plankton  tows  from  all  samples. 

MACHINE:  Sigma  7 

SOURCE  LANGUAGE:  Extended  Fortran  IV 

PROGRAM  CATEGORY:  Utility 
DESCRIPTION: 

Some  kinds  of  plankton  tows  include  samples  from  different  depths. 

It  is  desired  to  create  an  additional  sample,  combining  data  from 
each  depth.  For  each  species  found  in  the  tow,  the  program  finds  the 
number  caught  per  1000  cubic  meters  of  water  filtered,  per  1000  meters 
of  depth.  The  minimum,  average,  and  maximum  values  of  temperature, 
salinity,  etc.  are  found,  and  the  total  biomass  and  volume  of  water 
filtered  are  found.  The  depth  ranges  of  the  integrated  sample  are  the 
minimum  and  maximum  depths  of  all  the  samples  processed.  The  depth 
code  of  the  integrated  sample  is  ’99'.  An  output  file  is  created, 
containing  the  input  file  information,  and  the  integrated  samples. 


INPUT: 

The  file  containing  input  data  is  read  through  the  F:1  DCB.  This 
file  contains  four  different  kinds  of  records,  distinguished  by  the 
first  four  bytes  of  the  record.  The  kinds  of  records,  and  record 
identifiers,  are: 

T  Tow  record 

51  Required  (first)  sample  record 

52  Optional  (second)  sample  record 
C  Catch  record 

These  records  must  be  in  the  following  order: 

Tow  record  for  first  tow 

Sample  record  1  for  first  sample  of  tow 
Sample  record  2  for  first  sample  of  tow 
Catch  record  for  sample 
Catch  record  for  sample 


Sample  record  1  for  second  sample  of  tow 
Sample  record  2  for  second  sample  of  tow 
Catch  record  for  sample 
Catch  record  for  sample 
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Tow  record  for  second  tow 

Sample  record  1  for  first  sample  of  tow 
Sample  record  2  for  first  sample  of  tow 
Catch  record  for  sample 
Catch  record  for  sample 


The  formats  of  the  different  kinds  of  records  are  given  in  Tables  1, 
2,  3,  and  4. 


OUTPUT: 

The  output  file  is  created  through  the  F:2  DCB.  The  format  is  identical 
to  the  format  of  the  input  file.  The  records  for  the  integrated  sample 
for  each  tow  are  added  at  the  end  of  the  other  samples  for  the  tow. 


USAGE : 

The  job  to  load  and  run  the  program  could  be: 

.'JOB 

.' FORTRAN  LS.GO 

source  decks  of  PLANKINT  and  LJUST 
! SET  F : 1  /infil 
.'SET  F :  2  / out fil; OUT; SAVE 
.'LYNX  $;  .3 
!RUN 

where  'infil'  and  'outfil'  should  be  replaced  by  the  names  of  the  input 
and  output  files  respectively. 


RESTRICTIONS: 

1.  The  program  does  not  check  to  be  sure  there  are  samples  covering 
all  depths  between  the  minimum  and  maximum  depths. 

2.  The  average  temperature,  salinity,  etc.  for  the  integrated  sample 
are  found  by  averaging  the  minimum  and  maximum  values  of  the 
integrated  sample. 

3.  The  input  file  must  not  contain  sample  records  with  a  depth  code 
of  '99'. 
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STORAGE  REQUIREMENTS:  The  program  requires  3456  locations. 


SUBPROGRAMS 

REQUIRED: 

MOVE  and  COMPAR 

from  the  account  3  library. 

LJUST  included 

with  this  program. 

OPERATIONAL 

ENVIRONMENT: 

Device 

Function 

Special  requirements 

Disk 

input 

F : 1  DCB 

Disk 

output 

F :  2  DCB 

ERRORS  §  DIAGNOSTICS: 

There  are  two  kinds  of  error  messages.  The  first  kind  are  for  input- 
output  errors,  and  the  second  kind  for  problems  with  the  input  file. 
All  error  messages  result  in  the  program  being  terminated. 

Input/output  error  messages  are: 

1.  ERROR  nn  IN  FIRST  RECORD 

There  was  a  read  error  of  some  kind  in  the  first  record. 

2.  OUTPUT  ERROR  or  BUFFEROUT  ERROR 
A  write  error. 

3.  READ  ERROR 

Read  error  other  than  first  record. 


Error  messages  indicating  problems  with  the  input  file  are: 

4.  FIRST  RECORD  NOT  TOW  RECORD  nnnn 

The  program  prints  the  first  4  characters  of  the  offending  record 

5.  NOT  SI  RECORD  nnnn 

The  record  after  a  tow  record  must  always  be  a  SI  record.  If  not 
this  message  appears.  Again,  the  first  4  characters  are  printed. 

6.  ILLEGAL  RECORD  TYPE  AFTER  SI  nnnn 

The  only  legal  record  types  after  SI  are  S2  or  C. 

7.  ILLEGAL  RECORD  TYPE  AFTER  C  nnnn 
Must  be  record  type  T,  SI,  or  C. 
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VI i.  Program  to  Update  Database 


NAME:  ZOOPUP 

TYPE:  Main  program 

PURPOSE:  To  update  the  ZOOSTOR  database. 

MACHINE :  Sigma  7 

SOURCE  LANGUAGE :  Extended  Fortran  IV 

PROGRAM  CATEGORY:  Utility 
DESCRIPTION: 

Program  ZOOPUP  is  written  to  update  the  ZOOSTOR  database.  It  is 
assumed  that  the  user  has  read  the  database  description  and  other 
related  documentation.  The  program  includes  a  different  procedure 
for  each  anticipated  updating  task.  These  tasks  are: 

1.  Add  Family,  Genus,  and  Species  names 

2.  Add  Tow,  Sample,  and  Catch  information 

3.  Modify  or  delete  Tow  occurrences 

4.  Modify  or  delete  Sample  occurrences 

5.  Modify  or  delete  Catch  occurrences 

The  program  includes  two  read  subroutines,  one  to  read  Family/Genus/ 
Species  information,  and  one  to  read  Tow/Sample/Catch  information. 

The  expected  input  for  these  routines  is  described  under  INPUT. 

Data  in  a  different  format  can  be  used  by  supplying  a  new  version  of 
the  corresponding  routine.  Nearly  all  communication  between  the  read 
routines,  the  main  program,  and  the  Database  Management  routines,  is 
through  COMMON.  A  complete  description  of  COMMON  is  included  in  this 
report.  A  description  of  the  individual  procedures  follows. 
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Contents  of  COMMON 


HO. 

WORDS 


CONTENTS 


ICCB 

14 

INTEGER 

SHOULD  NOT  PE  CHANGED  BY  USER 

I  SETABL 

36 

INTEGER 

NOT  NEEDED  BY  USER  PROGRAMS 

IARTABL 

2 

INTEGER 

NOT  HEEDED  BY  USER  PROGRAMS 

ZOOHEAD 

2 

INTEGER 

USER  DDES  NOT  NEED  THIS  EITHER 

TOWDATA 

CPU  I SE 

1 

INTEGER 

CRUISE  NAME*  4  CHARACTERS  ALPHA 

TOWNUM 

1 

INTEGER 

TOW  NUMBER*  4  CHARACTERS  ALPHA 

TOWTVP 

1 

INTEGER 

TOW  TYPE*  4  CHARACTERS  ALPHA 

FAMCODE 

1 

INTEGER 

FAMILY  CODE*  ONE  BIT  PER  FAMILY  IDENTIFIED 

YEAR 

1 

INTEGER 

LAST  2  DIGITS  OF  YEAR  DF  TOW 

MONTH 

1 

INTEGER 

MONTH  NUMBER  OF  TOW 

DAY 

1 

INTEGER 

DAY  OF  MONTH 

TIME 

1 

INTEGER 

TIME  DF  DAY*  £4— HOUR  CLOCK  FORMAT 

LONGTUDE 

1 

REAL 

LONGITUDE  IN  DEGREES*  FOR  EAST*  -  FOP  WEST 

LfiTUDE 

1 

REAL 

LATITUDE  IN  DEGREES*  +  FDR  NORTH.  -  FOP  SOUTH 

REGION 

1 

INTEGER 

REGION  DF  TWO*  4  CHARACTERS  ALPHA 

NITEBAY 

1 

INTEGER 

DAY-NIGHT  CODE*  D  FOR  DAY*  N  FDR  NIGHT 

KURR2GG 

2 

INTEGER 

POINTERS  USED  BY  DBM 

SAMPLE 

DEPCODE 

1 

INTEGER 

DEPTH  CODE*  '99'  MEANS  INTEGRATED  SAMPLE 

DEPTHS 

2 

INTEGER 

MINIMUM  AND  MAXIMUM  DEPTH  OF  SAMPLE  IN  METERS 

|  TEMPS 

3 

REAL 

MIN.*  AVG. *  AND  MAX.  TEMPERATURE  OF  SAMPLE 

SALTS 

3 

REAL 

MIN.*  AVG. *  AND  MAX.  SALINITY  OF  SAMPLE 

OXYGEN 

3 

REAL 

MIN.*  AVG.*  AND  MAX.  OXYGEN  DF  SAMPLE 

LIGHT 

3 

REAL 

MIN.*  AVG.*  AND  MAX.  LIGHT  OF  SAMPLE 

CHLPPHYl 

3 

REAL 

MIN.*  AVG.*  AND  MAX,  CHLORORHYL  DF  SAMPLE 

BIOMASS 

1 

REAL 

TOTAL  BIOMASS  OF  SAMPLE 

ALIQUOT 

1 

REAL 

FRACTION  DF  SAMPLE  STUDIED*  8  MEANS  1^8 

VOLFIL 

1 

REAL 

VOLUME  DF  WATER  FILTERED*  IN  CUBIC  METERS 

UNDEF 

5 

INTEGER 

ROOM  FDR  EXPANSION 

KURR210 

2 

INTEGER 

POINTERS  USED  BY  DBM 

CATCH 

NPCUM 

1 

REAL 

NUMBER  PER  CUBIC  METER 

KURR400 

1 

INTEGER 

POINTER  USED  BY  DBM 

FRMILY 

FAMNAME 

5 

INTEGER 

1 7-CHARACTER  FAMILY  NAME 

KURR300 

1 

INTEGER 

DBM  POINTER 

GENUS 

GENAME 

5 

INTEGER 

18-CHARACTER  GENUS  NAME 

KURR31 0 

1 

INTEGER 

DBM  POINTER 

SPECIES 

SPENAME 

4 

INTEGER 

16-CHARACTER  SPECIES  NAME 

KURR38 0 

2 

INTEGER 

POINTERS  USED  BY  DBM 

IAPMAST 

6 

INTEGER 

NOT  NEEDED  BY  USER  PROGRAMS 
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The  first  procedure  is  used  to  add  Family,  Genus,  and  Species  names 

to  the  database.  This  procedure  takes  the  following  steps: 

1.  Initialize  counters  and  pointers. 

2.  Call  read  subroutine  and  check  status. 

3.  If  Family  name  is  different  from  previous  Family,  and  is  not 
already  in  the  database,  add  it  to  the  database. 

4.  If  Genus  name  is  different  from  previous  Genus,  and  is  not 
already  in  the  database,  add  it  to  the  database. 

5.  If  Species  is  not  already  in  the  database,  add  Species  name 
to  the  database. 

6.  Return  to  step  2. 

Operation  will  be  most  efficient  if  the  species  to  be  added  are 

already  sorted  by  Family  name  and  Genus  name. 


The  next  procedure  is  used  to  add  tow  data,  sample  data,  and  catch 

data.  This  procedure  takes  the  following  steps: 

1.  Initialize  pointers  and  counters. 

2.  Call  read  subroutine  and  check  status. 

3.  If  cruise  or  tow  number  is  different  from  that  of  the  previous 
tow,  and  there  is  no  tow  occurrence  with  that  cruise  and  tow 
number,  add  the  tow  occurrence  to  the  database. 

4.  If  the  depth  code  of  the  current  sample  is  different  from  the 
depth  code  of  the  previous  sample,  or  the  tow  is  not  the  same 
as  the  previous  tow,  the  program  checks  to  see  if  the  specified 
tow  already  has  a  sample  with  the  specified  depth  code.  If  not, 
the  sample  occurrence  is  added  to  the  database.  If  such  a 
sample  already  exists,  a  message  is  printed,  and  processing 
continues . 

5.  If  the  first  4  characters  of  the  Genus  name  are  blank,  returns 
to  step  2. 

6.  Checks  to  see  if  the  sample  already  has  a  catch  occurrence  of 
the  specified  Genus-Species.  If  such  an  occurrence  already 
exists,  a  message  is  printed,  and  the  program  returns  to  step  2. 

7.  If  the  specified  Genus/Species  is  not  in  the  database,  prints  a 
message,  and  returns  to  step  2. 

8.  Stores  catch  occurrence,  linked  to  sample  occurrence  and  Genus- 
Species  occurrence. 

Returns  to  step  2. 


9. 
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The  primary  purpose  of  this  procedure  is  to  add  Tow,  Sample,  and 
Catch  occurrences  in  the  same  job.  The  same  results  can  be  obtained 
by  adding  the  Tow  and  Sample  occurrences  in  one  job,  and  adding  the 
Catch  occurrences  later.  If  this  method  is  used,  a  message  will  be 
printed  for  each  sample,  indicating  that  the  occurrence  already  exists 
in  the  database,  but  the  program  will  continue  processing.  It  should 
be  noted  that  the  Family,  Genus,  and  Species  occurrences  must  already 
exist  in  the  database. 


The  last  three  procedures  are  used  to  modify  or  delete  Tow,  Sample, 
or  Catch  occurrences.  It  is  to  be  hoped  that  the  use  of  these 
procedures  will  be  kept  to  a  minimum  by  careful  checking  of  input 
before  adding  information  to  the  database.  The  first  of  these 
procedures  is  used  to  modify  (or  delete)  tow  occurrences.  Since  a 
tow  is  identified  by  cruise  and  tow  number,  these  two  fields  cannot 
be  changed.  This  procedure  takes  the  following  steps: 

1.  Initialize  pointers  and  counters. 

2.  Call  read  subroutine  and  check  status. 

3.  Access  tow  occurrence  with  specified  cruise  and  tow  number. 

4.  Modify  occurrence  by  replacing  all  fields  with  contents  of 
corresponding  COMMON  locations.  (Or  delete  occurrence.) 

5.  Return  to  step  2. 


The  next  procedure  is  used  to  modify  (or  delete)  samples.  Since 
samples  are  identified  by  depth  code,  this  field  cannot  be  changed. 
In  addition  to  sample  information,  the  read  subroutine  must  specify 
cruise  and  tow  number,  to  identify  the  tow  to  which  the  sample 
belongs.  The  procedure  takes  the  following  steps: 

1.  Initialize  pointers  and  counters. 

2.  Call  read  routine  and  check  status. 

3.  If  cruise  and  tow  number  are  different  from  those  of  the 
previous  tow,  access  the  specified  tow  occurrence. 

4.  Find  the  sample  occurrence  with  the  specified  depth  code. 

5.  Modify  the  sample  occurrence  by  replacing  all  fields  with  the 
contents  of  the  corresponding  COMMON  locations.  (Or  delete 
occurrence. ) 

Return  to  step  2. 


6. 
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The  last  procedure  is  used  to  modify  (or  delete)  catch  occurrences. 

To  properly  identify  the  occurrence  to  be  modified,  the  read  sub¬ 
routine  must  input  the  cruise  and  tow  number  of  the  tow,  depth  code 

of  the  sample,  and  Genus  and  Species  names,  in  addition  to  the 

correct  catch  information.  The  steps  taken  are: 

1.  Initialize  counters  and  pointers. 

2.  Call  read  subroutine  and  check  status. 

3.  If  cruise  and  tow  number  are  different  from  those  of  the 
previous  tow,  access  the  specified  tow  occurrence. 

4.  Find  sample  occurrence  with  the  specified  depth  code. 

5.  Access  the  catch  occurrences  from  the  sample  one  by  one 
until  we  reach  the  catch  occurrence  of  the  specified  Genus 
and  Species. 

6.  Modify  the  catch  occurrence  by  replacing  all  fields  with 
the  contents  of  the  corresponding  COMMON  locations.  (Or 
delete  occurrence.) 

7.  Return  to  step  2. 


There  is  no  substitute  for  careful  checking  and  rechecking  before 
adding  information  to  the  database.  If  a  tow  occurrence  is  deleted, 
all  sample  occurrences  for  the  tow  are  deleted  also.  If  a  sample 
occurrence  is  deleted,  all  catch  occurrences  for  the  sample  are 
deleted.  When  a  catch  occurrence  is  deleted,  the  linkage  for  each 
species  occurrence  must  be  changed.  All  this  is  done  by  the  Data 
Base  Management  routines,  but  shows  that  deletions  are  not 
recommended.  Again,  careful  checking  is  necessary  to  avoid  these 
time-consuming  procedures. 
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INPUT: 

A.  Cards  through  F:105 

One  record  is  read  from  logical  unit  105  for  each  procedure 
requested  by  the  user.  The  record  contains  one  or  two  keywords 
to  identify  the  desired  procedure,  as  follows: 


cols . 

codes 

procedure 

1-3 

FAM 

Add  Family,  Genus,  and  Species  names 

1-3 

TOW 

Add  Tow,  Sample,  and  Catch  occurrences 

1-7 

MOD  TOW 
MOD  SAM 
MOD  CAT 

Modify  already  existing  Tow, 

Sample,  or 

Catch  occurrences 

1-7 

DEL  TOW 
DEL  SAM 
DEL  CAT 

Delete  existing  Tow, 

Sample,  or 

Catch  occurrences 

1-3 

END 

No  more  procedures 

B.  Family,  Genus,  and  Species  names  through  F : 1 

Input  for  the  FAM  procedure  is  done  by  Subroutine  RHADSPEC. 

This  routine  expects  one  record  for  each  species  to  be  added 
to  the  database.  These  records  should  be  presorted  by  Family 
and  Genus.  The  format  is: 

cols .  Contents 

1-17  Family  name 

21-38  Genus  name 

41-56  Species  name 

C.  Tow,  Sample,  and  Catch  information  through  F:2 

Input  for  all  procedures  except  FAM  is  done  by  Subroutine 
READTOW.  The  amount  of  input  needed  depends  on  the  procedure, 
but  the  format  of  the  file  is  the  same  in  any  case. 

This  file  is  described  in  attached  documentation.  Section  V. 

D.  Subschema  file  F:SSCH  DCB 

The  user  does  not  need  to  do  anything  about  this,  except  include 
a  SET  command  in  his  job. 

E.  Database  F:DB01  DCB 


The  usur  must  include  a  SET  command  in  the  job. 


OUTPUT:  A.  At  the  conclusion  of  each  procedure,  the  number  of 

”  occurrences  of  each  group  added,  modified,  or  deleted,  is 

output  on  the  printer.  Error  messages  may  also  be  printed. 
See  ERRORS  5  DIAGNOSTICS,  below. 

B.  The  information  supplied  by  the  user  is  stored  in  the 
database. 


USAGE :  The  job  file  below  will  take  the  following  steps: 

1.  Compile  ZOOPUP  and  associated  subroutines  from  cards  and 
create  a  load  module  named  ZOOPUP. 

2.  It  will  add  occurrences  to  the  Family,  Genus,  and  Species 
groups.  Records  containing  the  information  are  read 
through  logical  unit  1,  which  is  assigned  to  file  FAMFILE. 

3.  It  will  add  occurrences  to  the  Tow,  Sample,  and  Catch 
groups.  The  required  information  is  read  through  logical 
unit  2,  which  is  assigned  to  file  TOWCATFIL. 

.'JOB 

! LIMIT  (CORE, 20), (TIME, 3) 

I  SET  F:DB01  /ZOOSTOR 
.'SET  F : SSCH  /ZOOPLAN 
.'SET  F :  1  /FAMFILE;  IN 
ISET  F : 2  /TOWCATFIL; IN 

*  .'FORTRAN  GO, NS 

*  source  of  ZOOPUP  and  subroutines 

*  .'LYNX  $,DCB1.DMSLIB;  .DMSLIB; .  3  OVER  ZOOPUP 
.'RUN  (LMN, ZOOPUP) 

.'  DATA 
FAM 
TOW 
END 

*  When  ZOOPUP  is  loaded,  delete  these. 


RESTRICTIONS: 

1.  Cruise  name  and  tow  number  of  tow  occurrences  cannot  be 
changed.  Depth  code  of  sample  occurrences  cannot  be  changed. 

2.  Family,  Genus,  and  Species  must  be  added  before  Tow,  Sample, 
and  Catch  occurrences. 


STORAGE  REQUIREMENTS: 


The  load  module  requires  16,896  locations,  but  additional  core 
is  required  at  run-time.  The  program  will  run  in  20K. 
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SUBPROGRAMS  REQUIRED: 

A.  The  following  have  been  written  as  part  of  the  program: 

FAMADD  To  add  Family,  Genus,  and  Species  occurrences 

TOWADD  To  add  Tow,  Sample,  and  Catch  occurrences 

FIXIT  To  modify  or  delete  already  existing  Tow,  Sample, 

or  Catch  occurrences 

READSPEC  To  read  the  Family/Genus/Species  file 

READTOW  To  read  the  Tow/Sample/Catch  file 

LJUST  To  left-justify  an  alpha  field  within  a  word. 

B.  The  following  are  from  the  Data  Base  Manager: 

OPENUPD  STORE  SETERR  FINDG  FINDN  GET  CLOSE DB 

HEAD  FINDD  MODIFY  DELETE 

C.  The  following  are  from  the  IPC  library  in  account  3: 

ABORT  COMPAR  MOVE 


OPERATIONAL  ENVIRONMENT: 


Device 


Function 


Special  requirements 


card  reader 
disk  file 
disk  file 
Subschema  file 
Database  file 
line  printer 


control  input 

F:  105 

DCB 

data  input 

F :  1 

DCB; IN 

data  input 

F :  2 

DCB; IN 

information  input 

F : SSCH 

DCB 

data  input/output 

F : DB01 

DCB 

output 

F :  108 

DCB 

TIMING: 

The  following  runs  were  done  on  a  database  of  100  pages,  rather 
than  1000.  This  should  probably  not  make  much  difference  in  the 
time. 

1.  Time  to  add  34  species  records  was  .028  minutes. 

2.  Time  to  add  187  catch  occurrences,  from  3  tows  and  27  samples, 
was  .35  minutes. 
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ERRORS  5  DIAGNOSTICS: 

A.  The  first  two  error  messages  are  produced  by  the  main  program, 
and  will  result  in  termination  of  the  program. 

1 .  UNKNOWN  PROCEDURE 


The  program  did  not  recognize  the  procedure  requested. 

2.  HEADER  ERROR  CODE  = 


An  error  condition  was  returned  by  the  DBM.  The  error  code 
is  printed. 

B.  The  following  messages  are  output  by  one  of  the  read  routines. 
The  name  of  the  subroutine  is  always  printed.  They  will  result 
in  the  termination  of  the  current  procedure. 


3.  SUBR.  READSPEC  ERROR  IN  READING  FAMILY  FILE 

4.  SUBR.  REATOW  ERROR  IN  READING  TOW  FILE 

5.  SUBR.  READTOW  FILE  OUT  OF  ORDER 

HOWMUCH  = 

LAST  =  . . 

CURRENT  = 


The  output  values  are  for  debugging  purposes. 

C.  The  final  three  messages  indicate  an  unexpected  condition  in  the 
database.  The  name  of  the  subroutine  is  included  as  part  of  the 
message. 

6.  NON-EXISTENT  GROUP  OCCURRENCE 

This  message  is  followed  by  identification  of  the  group 
occurrence  which  cannot  be  located.  In  most  cases,  the 
current  procedure  will  continue. 

7.  ERROR  error  code  IN  subroutine  name  group  name 

This  message  indicates  that  an  error  condition  was  found  by 
one  of  the  DBM  subroutines.  The  DBM  error  code,  name  of  the 
subroutine,  and  the  group  in  which  the  error  occurred,  are 
part  of  the  error  message.  In  most  cases,  the  current 
procedure  will  be  terminated. 

8.  GROUP  OCCURRENCE  ALREADY  IN  DATABASE 

This  message  is  followed  by  identification  of  the  group 
occurrence  which  is  duplicated.  The  current  procedure 
will  continue. 


PROGRAMMER: 


ORIGINATOR: 

DATE: 

REFERENCES : 


Mary  Hunt 
Peter  Wiebe 
October,  1979 

Xerox  Extended  Data  Management  System  Reference  Manual. 
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VIII.  Interactive  Database  Processor  (IDP) 

Most  information  retrieval  can  be  done  by  the  Interactive  Database 
Processor,  hereafter  called  IDP.  This  processor  can  be  used  either  to 
print  reports  directly  or  to  store  retrieved  information  in  a  file  for 
further  processing.  IDP  is  fairly  flexible,  easy  to  use,  and  well-documented. 
It  requires  12K  of  core,  and  can  be  run  either  in  batch  or  on-line.  To  use 
IDP,  it  is  necessary  to  be  familiar  with  the  database  structure  and  item- 
names,  which  are  included  in  Section  II  of  this  report. 

If  IDP  is  used  to  store  retrieved  information  in  a  file,  it  is 
recommended  that  the  NON-REPORT  option  not  be  used.  After  the  retrieval  has 
been  completed,  use  EDIT  to  eliminate  column  headings,  and  to  determine  the 
format  of  the  records.  The  NON-REPORT  option  causes  all  items  which  are 
binary  or  floating-point  to  be  stored  in  binary  format,  which  might  cause 
trouble  with  some  application  programs. 

A  word  of  caution  about  using  IDP  -  be  sure  to  give  the  search  a  place 
to  start.  If  you  don't,  it  will  take  much  longer  than  it  should.  It  may 
help  to  know  that  group  ZOOHEAD  is  stored  on  page  1,  line  1.  If  no  other 
starting  place  is  given  or  implied,  include  (in  the  DISPLAY  command)  the 
phrase  DIRECT  ON  ZOOHEAD  (0001,01).  If  you  get  the  message  'UNABLE  TO 
OPTIMIZE',  hit  BREAK  and  start  over,  giving  more  information. 
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•  I  DP 

1  DP  VERSION  BOS 

: QUERY  ZDDPLAN. 980  AREA=ZDDS1 DR. 980. 

: DISPLAY  CRUISE*  TDWNUM.  TDWTYP.  DEPCODE*  BIDMASS 
: WHEN  CRUISE  EQ  'K.065'  AND  DEPCODE  EQ  '99' 

:  DIRECT  ON  ZDDHEAD  <.0001. 01>  . 


CRUISE 

TDWNUM 

TDWTYP 

DEPCODE 

BIOMASS 

K065 

76 

MDC1 

99 

+8.61 OOOOOE+OS 

K  065 

75 

MOC 1 

99 

+5. 44 0000 0E+ OS 

K  065 

73 

MOC1 

99 

+1 . SI 000G0E+03 

k  065 

7S 

MOC  1 

99 

+8. 87 OOOOOE+OS 

K  065 

71 

MOC1 

99 

+8. 97 00000E+0S 

K065 

70 

MOC1 

99 

+7. 55 OOOOOE+OS 

K.065 

63 

MDC1 

99 

+8.5500 0  0  OE + OS 

k  065 

67 

MDC1 

99 

+6.3700 0  0  OE+OS 

k  065 

66 

MDC1 

99 

+5. 33 OOOOOE+OS 

K065 

65 

MOC1 

99 

+5. 1800000E+0S 

k  065 

64 

MOC1 

99 

+5. 4000 00 OE+OS 

K.065 

63 

MOC  1 

99 

+  1 .  1330000E+03 

k  065 

6S 

MDC1 

99 

+1 . SSI 000OE+03 

k  065 

61 

MOC  1 

99 

+6. 730000 OE+OS 

k  065 

60 

MQC1 

99 

+4. 8900000E+0S 

: SDRT  GENAME.  SPENAME. 

: DISPLAY  FAMNAME.  GENAME.  SPENANE 
?  WHEN  FANNAME  EQ  ' EUPHAUS IDS". 
SORT  VERSION  F03WHD1  JUN  4  79 


SEQUENTIAL 

RECORDS  IN  TOURNAMENT?  76 
NUMBER  DF  MERGE  BUFFERS?  IS 
INTERMEDIATE  BUFFER  SIZE?  SIS 
RECORDS  INPUT?  34 
RECORDS  OUTPUT:  34 


FAMNAME 


GENAME 


SPENANE 


EUPHAUS I DS 

BENT  HEUPHAUS I A 

AMBLYDPS 

EUPHAUS I DS 

EUPHAUS I A 

AMERICANA 

EUPHAUS IDS 

EUPHAUS 1 A 

BREVIS 

EUPHAUS IDS 

EUPHAUS I A 

GIBBDIDES 

EUPHAUS IDS 

EUPHAUS I A 

HEMIGIBBA 

EUPHAUS IDS 

EUPHAUS I A 

KRDHNI I 

EUPHAUS IDS 

EUPHAUS! A 

MUTICA 

EUPHAUS IDS 

EUPHAUS 1 A 

PSEUDDGIBBA 

EUPHAUS IDS 

EUPHAUS I A 

TENERA 

EUPHAUS IDS 

HEGANYCT 1PHANES 

NDRVEGICA 

EUPHAUS IDS 

NEMAT  DBR ANCH1 DN 

BDDPIS 

EUPHAUS IDS 

NEHATOBRANCH1DN 

FLEXIPIES 

EUPHAUSIDS 

NEMATDBRANCH10N 

SEXSP1NDSUS 

EUPHAt.  SIDS 

NEMATDSCEL I S 

AT LAN! ICA 

EUPHAUSIDS 

NEMAT DSCEL  IS 

MEGALDPS 

EUPHAUSIDS 

NEMATDSCEL IS 

MI CROPS 

EUPHAUSIDS 

NEMAT DSCEL IS 

TENELLA 

EUPHAUSIDS 

STYLDCHEIRDN 

ABBREVI ATUM 

EUPHAUSIDS 

ST  YLDCHE 1 RDM 

AFFINE 

: DISPLAY  SPEMAPIE*  HPCUIV  CRUISE*  TQWMUM 

:W HEN  uENHME  EQ  ' MEMHT QBRHMCHI DM '  AMD  DEPCDBE  EQ 


SPEMAME 

BOOP I S 

BDOPIS 

BOOP  I. S 

BODP1S 

BOOP IS 

BODPIS 

BOOP  IS 

BODPIS 

BOOP IS 

BOOP IS 

BODPIS 

BODPIS 

BODPIS 

BDOPIS 

BDOPIS 

BODPIS 

BDOPIS 

BDDP I S 

BDDP1S 

BODPIS 

BDDP IS 

BODPIS 

BODPIS 

BDOPIS 

BDOPIS 

BODPIS 

BDDP IS 

BODPIS 

BODPIS 

BOOP IS 

BODPIS 

BODPIS 

BODPIS 

BODPIS 

BDOPIS 

BDOPIS 

BDOPIS 

BODPIS 

BODPIS 

BDOPIS 

BDOPIS 

BDDP IS 

FLEXIPIES 

FLEXIP1ES 

FLEXIPIES 

FLEXIPIES 

FCEX1P1ES 

FLEXIPIES 

FLEXIPIES 

FLEXIPIES 

FLEXIPIES 

FLEXIPIES 


MPCUM 

+ 1 . 8 999999E - 0 1 
-*-1 .  1  000001 E— 01 
+1.8G00000E-01 
+2.5000000E-01 
+1 .9999998E-01 
+  1 . 8000000E— 01 
+2. 099999? E- 01 
+2. 6999998E-01 
+  1 .99999982-01 
■*■1 . 8999999E-01 
♦3 .50000 02E— 0 1 
+3. 9999997 E-01 
-♦-1 . 0900001E+00 
+  1.  1700000E+00 
+4.6300001E+00 
-♦-1 . 5600004E-*-00 
+ 3 . 9999997 E-01 
+3.8999998E-01 
-*-3.60000012-01 
+3.2999998E-01 
■*■4. 3999999E— 0 1 
■►1 .6499996E+00 
-*•7 . 7 999997 E — 0 1 
-*■2. 2  000002E  — 01 
+2.4000000E-01 
-*-1 . 9999998E— 01 
■*■5. 1999r*98E-01 
-*■1 . OOOOOOOE+OO 
-*-2 .  0  0  0  0  0  0  OE +00 
+1 . OOOOOOOE+OO 
+1 . 0000000E+00 
+1 . OOOOOOOE+OO 
+3. 8999998E— 01 
+2.5000000E-01 
+  1 .6000002E-01 
+3. 600 000 I E-01 
+2. 9000002E-01 
+5. 9999998E-02 
+7 . 90  0  0  0  02E— 0 1 
+£. 6999998E— 01 
+2. 6999998E— 01 
+2. 9000002E— 01 
+  1 . 8000000E— 01 
+3 . 8999998E— 0 1 
+3. 0000001E— 01 
+2. 52000042+00 
+1 -8199996E+00 
+7.60G0003E+00 
+2.52999972+00 
+3. 8999998E— 01 
+3 . 7 999999E - 0 1 
+9. 800000 IE— 01 


CRUISE 

7DWML 

EM1 1 

95 

emu 

91 

EMI 

87 

EMI  1 

86 

EMI 

85 

EMU 

84 

EMI  1 

83 

EMI  1 

82 

EMI  1 

81 

SUW1 

SUW1 

1 

K  035 

006 

HI  01 

016 

HI  01 

015 

HI  01 

014 

HI  01 

013 

HI  01 

012 

HI  01 

01 1 

HI  01 

010 

HI  01 

009 

0007 

0001 

H085 

004 

K.062 

58 

K  062 

57 

K  065 

71 

K  065 

66 

K.  065 

64 

K  038 

6 

K  038 

1 

H271 

20 

H271 

11 

H271 

3 

K.062 

48 

K  062 

47 

K  053 

42 

K  053 

37 

K  053 

33 

K053 

31 

Cl  25 

005 

Cl  25 

Oil 

Cl  25 

008 

Cl  25 

013 

EMI  1 

87 

K  035 

005 

HI  01 

005 

cm 

007 

Cl  11 

020 

cm 

013 

cm 

010 

K.065 

72 

K  065 

71 

K  065 

70 
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IX.  Applications  Programs 

As  an  alternative  to  IDP,  two  subroutines  have  been  written  which  can 
be  incorporated  in  user  applications  programs.  Their  use  will  allow  direct 
access  to  the  database,  but  will  add  to  the  core  requirements  of  the  programs. 
These  routines  act  as  an  interface  between  user  programs  and  the  Database 
Management  routines.  These  will  only  access  the  data;  they  cannot  be  used 
to  create  or  update  the  database.  One  of  these  routines  accesses  the  data¬ 
base  by  Families,  and  the  other  accesses  the  database  by  Tows.  Nearly  all 

communication  between  the  user  programs,  the  access  routines,  and  the  Data 

Base  Management  routines  is  through  COMMON.  The  contents  and  arrangement 
of  COMMON  are  determined  by  the  File  Definition  Processor,  and  must  be 
exactly  as  specified.  A  complete  description  is  included  in  this  report. 

With  the  exceptions  noted  in  the  following  descriptions  (in  GETFAM  and 
GETTOW) ,  the  user  program  should  change  nothing  in  COMMON. 

Each  of  the  two  routines  has  four  entry  points.  In  both  cases,  the 
first  entry  point  is  an  initialization  call.  Although  these  routines  are 
designed  so  that  only  one  of  them  will  be  needed  for  most  applications,  both 
may  be  used  in  a  single  program,  with  the  following  restrictions; 

1.  Only  one  of  the  initialization  calls  may  be  made. 

2.  Calls  to  the  two  routines  must  not  be  alternated.  Processing  in 

one  direction  should  be  completed  before  starting  to  process  in 
the  other  direction. 

A  brief  demonstration  program  using  FAMINIT  is  included.  For  each 
species,  it  prints  tow  and  sample  information  associated  with  each  catch 
occurrence.  The  first  page  of  output  is  also  included. 


NAME : 


TOWINIT 


TYPE :  Subroutine 

PURPOSE :  To  provide  a  method  for  Fortran  programs  to  access  the  ZOOSTOR 
database  by  tow  and  sample  number. 

MACHINE:  Sigma  7 

SOURCE  LANGUAGE:  Extended  Fortran  IV 

PROGRAM  CATEGORY:  Input 

DESCRIPTION: 

This  routine  was  written  to  allow  applications  programs  to  access 
information  stored  in  the  ZOOSTOR  database,  without  having  to  use 
the  Data  Base  Manager  directly.  Nearly  all  communication  between 
user  programs,  this  access  routine,  and  the  Data  Base  Management 
routines  is  through  COMMON.  In  particular,  information  retrieved 
from  the  database  is  always  stored  in  COMMON.  The  contents  and 
arrangement  of  COMMON  are  determined  by  the  File  Definition 
Processor,  and  must  be  exactly  as  specified.  A  complete  description 
is  included  with  this  report.  With  the  exceptions  noted  in  the 
description  (in  GETTOW) ,  the  user  program  should  change  nothing  in 
COMMON. 

This  routine  has  four  entry  points,  the  first  of  which  is  an 
initialization  call.  All  the  entry  points  include  an  error 
indicator,  INKERR,  as  an  argument.  This  indicator  has  the  same 
meaning  in  all  cases: 

INKERR  =  0 


INKERR  =  -1 


INKERR  >  0 


The  requested  operation  was  successfully 
completed. 

The  end  of  the  set  being  processed  has 
been  found.  This  is  not  usually  an  error 
condition.  It  cannot  occur  in  an 
initialization  call. 

An  error  has  occurred  which  makes  it 
impossible  to  continue.  The  value  of 
INKERR  will  be  one  of  the  error  codes 
set  by  the  Data  Base  Manager.  If  the 
user  program  makes  another  call  to  the 
access  routine  after  an  error  condition 
has  been  encountered,  the  job  will  be 
aborted. 


i 
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INPUT: 


OUTPUT: 


USAGE : 


The  input  items  requested  by  individual  calls  are  stored  in  the 
corresponding  locations  of  COMMON.  See  the  description  of 
COMMON  included  in  this  report. 


As  mentioned  above,  this  routine  has  four  entry  points.  The 
first  entry  point  is  an  initialization  call,  which  must  be  made 
once  and  only  once,  before  any  of  the  other  entry  points  are 
called.  It  will  open  the  database  and  do  other  needed 
initialization.  The  form  of  this  call  is: 

CALL  TOWINIT  (NPAGE , INKERR) 


where 

NPAGE 


INKERR 


is  an  integer  location  into  which  the  calling  program 
must  store  the  number  of  pages  to  be  used  as  buffers 
by  the  Data  Base  Manager.  The  value  must  be  between 
3  and  10. 

is  an  integer  location  into  which  the  routine  will 
store  the  results  of  the  operation,  as  described  above. 


The  next  entry  point  is  used  to  access  a  tow.  It  can  be  used  in 
one  of  two  ways:  either  to  access  a  specific  tow,  or  to  access 
the  next  tow.  To  access  the  next  tow,  the  calling  program  must 
set  METHOD  to  one;  the  routine  will  store  the  retrieved  tow 
information  in  the  corresponding  locations  in  COMMON.  To  access 
a  specific  tow,  the  calling  program  must  store  the  cruise  name 
and  tow  number  in  the  corresponding  locations  in  COMMON  and  set 
METHOD  to  zero  before  calling  GETTOW.  The  form  of  the  call  is: 

GETTOW  (METHOD, INKERR) 


where 

METHOD 


is  an  integer  location  into  which  the  calling  program 
must  store  either  zero  or  one: 

=  0  to  retrieve  a  specific  tow 
=  1  to  retrieve  next  tow 


INKERR 


is  an  integer  location  into  which  the  routine  will 
store  the  results  of  the  operation,  as  described 
above . 


C.  The  next  call  should  be  made  to  access  the  next  Sample  from 
the  current  Tow.  When  all  samples  for  the  tow  have  been 
retrieved,  INKERR  will  be  set  to  -1.  Retrieved  sample 
information  will  be  stored  in  the  corresponding  locations  of 
COMMON.  The  form  of  this  call  is: 

CALL  GETSAMP  (INKERR) 
where 

INKERR  is  an  integer  location  into  which  the  routine  will 
store  the  results  of  the  operation,  as  described 
above . 

D.  The  last  entry  point  of  this  routine  is  used  to  retrieve  the 
next  catch  occurrence  for  the  current  sample.  The  calling 
program  can  specify  how  much,  if  any,  information  is  desired 
in  addition  to  the  catch  data.  All  retrieved  data  are  stored 
by  this  routine  in  the  corresponding  locations  in  COMMON. 

The  form  of  this  call  is: 

CALL  NECATCH  (HOWMUCH, INKERR) 
where 

HOWMUCH  is  an  integer  location  into  which  the  calling  program 
must  store  a  value  to  indicate  how  much  information 
is  desired: 

=  0  will  access  only  catch  information 
=  1  will  also  retrieve  Genus  and  Species  names 
=  2  will  retrieve  Family  name  in  addition  to 
Genus  and  Species  names. 

INKERR  is  an  integer  location  into  which  the  routine  will 
store  the  results  of  the  operation,  as  described 
above. 

E.  Other  Considerations 

1.  The  job  to  access  the  database  must  include  the  following 
SET  commands : 

.'SET  F : DB01  /ZOOSTOR 
.'SET  F : SSCH  /ZOOPLAN 

2.  When  the  application  program  has  completed  its  operation, 
it  should  close  the  database,  as  follows: 


CALL  CLOSEDB 
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3.  The  Load  command  for  the  application  program  must  include 
the  following: 

File  DCB1  in  account  DMSLIB 
Library  in  account  DMSLIB 

To  load  from  the  GO  file,  the  LYNX  command  might  be: 
.'LYNX  $,DCB1. DMSLIB;  .DMSLIB;  .3 


RESTRICTIONS: 

1.  If  the  other  retrieval  routine,  FAMINIT,  is  to  be  used  in  the 
same  program,  the  following  restrictions  must  be  observed: 

a.  Only  one  of  the  initialization  calls  may  be  made. 

b.  Calls  to  the  two  routines  must  not  be  alternated. 

Processing  in  one  direction  should  be  completed 
before  starting  to  process  in  the  other  direction. 

2.  The  entry  points  are  heirarchical .  This  means  that  a  call  to 
GETSAMP  cannot  be  made  before  a  call  to  GETTOW,  and  a  call  to 
NECATCH  cannot  be  made  before  a  call  to  GETSAMP. 

3.  The  calling  program  should  check  the  indicator  after  every  call. 


STORAGE  REQUIREMENTS: 

Subroutine  TOWINIT  requires  135  locations.  This  does  not  include 
locations  needed  by  the  Data  Base  Management  routines. 


SUBPROGRAMS  REQUIRED: 

The  following  routines  are  needed  from  the  library  in  account  DMSLIB: 
FINDD  FINDG  FINDN  GET  HEAD  OPENRET  SETERR 

OPERATIONAL  ENVIRONMENT: 

Device  Function  Special  requirements 


Subschema  file  ZOOPLAN 
Database  file  ZOOSTOR 


input 

input 


F : SSCH  DCB 
F : DB01  DCB 
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PROGRAMMER: 

ORIGINATOR: 

DATE: 

REFERENCES: 


Mary  Hunt 
Peter  Wiebe 
January,  1979 

Xerox  Extended  Data  Management  System  Reference  Manual. 


NAME: 


F AMIN  IT 


TYPE :  Subroutine 

PURPOSE :  To  provide  a  method  for  Fortran  programs  to  access  the  ZOOSTOR 

database  by  Family  and  Genus. 

MACHINE:  Sigma  7 

SOURCE  LANGUAGE :  Extended  Fortran  IV 

PROGRAM  CATEGORY:  Input 

DESCRIPTION: 

This  routine  was  written  to  allow  applications  programs  to  access 
information  stored  in  the  ZOOSTOR  database,  without  having  to  use 
the  Data  Base  Manager  directly.  Nearly  all  communication  between 
user  programs,  this  access  routine,  and  the  Data  Base  Management 
routines  is  through  COMMON.  In  particular,  information  retrieved 
from  the  database  is  always  stored  in  COMMON.  The  contents  and 
arrangement  of  COMMON  are  determined  by  the  File  Definition 
Processor,  and  must  be  exactly  as  specified.  A  complete  description 
is  included  with  this  report.  With  the  exceptions  noted  in  the 
description  (in  GETFAM) ,  the  user  program  should  change  nothing  in 
COMMON . 

This  routine  has  four  entry  points,  the  first  of  which  is  an 
initialization  call.  All  the  entry  points  include  an  error 
indicator,  INKERR,  as  an  argument.  This  indicator  has  the  same 
meaning  in  all  cases: 

INKERR  =  0  The  requested  operation  was  successfully 
completed. 

INKERR  =  -1  The  end  of  the  set  being  processed  has  been  found. 

This  is  not  usually  an  error  condition.  It  cannot 
occur  in  an  initialization  call. 

INKERR  >0  An  error  has  occurred  which  makes  it  impossible 
to  continue.  The  value  of  INKERR  will  be  one  of 
the  error  codes  set  by  the  Data  Base  Manager. 

If  the  user  program  makes  another  call  to  the 
access  routine  after  an  error  condition  has  been 
encountered,  the  job  will  be  aborted. 


INPUT:  The  input  items  requested  by  individual  calls  are  stored  in  the 

corresponding  locations  of  COMMON.  See  the  description  of  COMMON 
included  in  this  report. 
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OUTPUT:  None. 

USAGE: 

A.  As  mentioned  above,  this  routine  has  four  entry  points.  The 
first  entry  point  is  an  initialization  call,  which  must  be 
made  once  and  only  once,  before  any  of  the  other  entry  points 
are  called.  It  will  open  the  database  and  do  other  needed 
initialization.  The  form  of  this  call  is: 

CALL  FAMINIT  (NPAGE , INKERR) 
where 

NPAGE  is  an  integer  location  into  which  the  calling  program 
must  store  the  number  of  pages  to  be  used  as  buffers 
by  the  Data  Base  Manager.  The  value  must  be  between 
3  and  10. 

INKERR  is  an  integer  location  into  which  the  routine  will 

store  the  results  of  the  operation,  as  described  above. 

B.  The  next  entry  point  is  used  to  access  a  family.  It  can  be  used 
in  one  of  two  ways:  either  to  access  a  specific  family,  or  to 
access  the  next  family.  To  access  the  next  family,  the  calling 
program  must  set  METHOD  to  one;  the  routine  will  store  the  name 
of  the  retrieved  family  in  array  FAMNAME  in  COMMON.  To  access 

a  specific  family,  the  calling  program  must  store  the  Family 
name  in  array  FAMNAME  in  COMMON  and  set  METHOD  to  zero  before 
calling  GETFAM.  The  form  of  the  call  is: 

CALL  GETFAM  (METHOD, INKERR) 
where 

METHOD  is  an  integer  location  into  which  the  calling  program 
must  store  either  zero  or  one: 

=  0  to  retrieve  a  specific  family 
=1  to  retrieve  next  family 

INKERR  is  an  integer  location  into, which  the  routine  will 

store  the  results  of  the  operation,  as  described  above. 
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The  next  call  should  be  made  to  access  the  next  Genus-Species 
in  the  current  Family.  The  first  time  this  call  is  made  for 
a  given  Family,  it  will  retrieve  the  first  Genus  in  the  Family, 
and  the  first  Species  for  that  Genus.  Subsequent  calls  will 
retrieve  the  next  Species  for  the  same  Genus  until  all  Species 
in  the  Genus  have  been  retrieved.  It  will  then  retrieve  the 
first  Species  from  the  next  Genus.  When  all  Species  from  the 
Family  have  been  retrieved,  INKERR  will  be  set  to  -1.  Names 
of  the  retrieved  Genus  and  Species  will  be  stored  in  arrays 
GENAME  and  SPENAME  in  COMMON.  The  form  of  the  call  is: 

CALL  GETSPEC  (INKERR) 
where 

INKERR  is  an  integer  location  into  which  the  routine  will 

store  the  results  of  the  operation,  as  described  above. 

The  last  entry  point  of  this  routine  is  used  to  retrieve  the 
next  catch  occurrence  for  the  current  Species.  The  calling 
program  can  specify  how  much,  if  any,  information  is  desired 
in  addition  to  the  catch  data.  All  retrieved  data  are  stored 
by  this  routine  in  the  corresponding  locations  in  COMMON. 

The  form  of  this  call  is: 

CALL  GETCATCH  (HOWMUCH, INKERR) 
where 

HOWMUCH  is  an  integer  location  into  which  the  calling  program 
must  store  a  value  to  indicate  how  much  information 
is  desired. 

=  0  will  access  only  catch  information 
=  1  will  also  retrieve  Sample  which  is  the  owner 
of  the  catch  occurrence 

=  2  will  retrieve  Tow  information  in  addition  to 
Sample  information. 

INKERR  is  an  integer  location  into  which  the  routine  will 
store  the  results  of  the  operation,  as  described 
above . 

Other  Considerations 

1.  The  job  to  access  the  database  must  include  Jie  following 
SET  commands: 

.'SET  F:DB01  /ZOOSTOR 
.'SET  F : SSCH  /ZOOPLAN 

2.  an  the  application  program  has  completed  its  operation, 

•t  should  close  the  database:  CALL  CLOSEDB 

This  routine  has  no  arguments. 
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3.  The  Load  command  for  the  application  program  must  include 
the  following: 

File  DCB1  in  account  DMSLIB 
Library  in  account  DMSLIB 

To  load  from  the  GO  file,  the  LYNX  command  might  be: 

! LYNX  $,DCB1. DMSLIB; .DMSLIB;  .3 


RESTRICTIONS: 

1.  If  the  other  retrieval  routine,  TOWINIT,  is  to  be  used  in  the 
same  program,  the  following  restrictions  must  be  observed: 

a.  Only  one  of  the  initialization  calls  may  be  made. 

b.  Calls  to  the  two  routines  must  not  be  alternated. 
Processing  in  one  direction  should  be  completed 
before  starting  to  process  in  the  other  direction. 

2.  The  entry  points  are  heirarchical .  This  means  that  a  call  to 
GETSPEC  cannot  be  made  before  a  call  to  GETFAM,  and  a  call  to 
GETCATCH  cannot  be  made  before  a  call  to  GETSPEC. 

3.  The  calling  program  should  check  the  indicator  after  every 
call . 


STORAGE  REQUIREMENTS: 

Subroutine  FAMINIT  requires  146  locations.  This  does  not  include 
the  locations  needed  by  the  Data  Base  Management  routines. 


SUBPROGRAMS  REQUIRED: 

The  following  routines  are  needed  from  the  library  in  account  DMSLIB 
FINDD  FINDG  FINDN  GET  HEAD  OPENRET  SETERR 

OPERATIONAL  ENVIRONMENT: 

Device  Function  Special  requirements 


Subschema  file  ZOOPLAN 
Database  file  ZOOSTOR 


input 

input 


F :SSCH  DCB 
F : DB01  DCB 
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PROGRAMMER: 

ORIGINATOR: 

DATE: 

REFERENCES : 


Mary  Hunt 
Peter  Wiebe 
January,  1979 

Xerox  Extended  Data  Management  System  Reference  Manual. 
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i*  C  PROGRAM  T9  TEST  F AM  1 N  J  T 

2»  C 

C  -  - 

. . * . 

5.  C 

6*  -  C _ C9MM0N  TS  BE  USED  B Y  PROGRAMS  WHICH  ACCESS . . . 

7.  C  790ST9R  DATABASE 

8.  C 

_9. - C*MM0N  ICCO(H)  -  -  - - 

10«  INTEGER  RrPCfjUF*  PAGCM0,  LIN0,  FH^F 

U.  INTEGER  CAWFf>  GRP?PM?j  EKWL9UE.  ERRNt> 

12.  _ jMTEGtR  FRREFj  PASSWDC2)a  AREANB  _ ... 

13.  EQUIVALENCE  (  ICCB(1  ).HEf-'CBUt),  (  I CCB  ( 2  )  ,  PAGENO ) 

14.  EQUIVALENCE  < ICCB(4),LIN»)j  ( I CCB { 5  )  j F REF ) 

15.  _ EQUIVALENCE  C1CCBC6>.LAREMj  ( I  CCB  (  7)  a  GKS9PN9 ) _ 

16*  EQUIVALENCE  ( ICCH<8),ERRC»De>a  ( ICC«<y) ,£RRN») 

17.  EQUIVALENCE  ( ICCB ( 10 ) * EWRE^ ) #  ( I CCB ( 1 1 ) . PASS wo ) 

18. - _ EQUIVALENCE.  <  1  CCB.t-1 3 )  a AREAN8L) _ _ _ 

19.  C 

20*  C  SET  TABLES 

■21« - C - 

22.  CAMM0N  I  SET  A0L ( 36 ) 

23.  INTEGER  T9WSET(5).  SAMSET { 5 ) .  FAMSET(b) 

24.  _ IMTEQER  GENUSET15.)^_SHECSET-I51  j  .  SPECAX15J _ 

?5.  INTEGER  SA"CAT(5) 

26.  equivalence  < isetabu i )atowset).  cisetabL(6> asamsetj 

27.  _ EQUIVALENCE..!  I  SETABLt  111  a  ^AMSET.Ji^USETABLt  16)  a  GENUSET)__. 

28.  EQUIVALENCE  (  ISETABL(21 ) aSPECSET),  { I  SET ABL < 26 > a SPECAT ) 

2  *  EQUIVALENCE  ( I SETABL < 31 > a SAMCAT > 

~3u<- _ C _ 

31.  CHMMBN  I  ART  ABL (  2 ) 

32.  C 

-33.--  C  HEADER  GR9Up _ _ _ 

34.  C 

35.  CPMM0N  Z0PHEAO ( 2 ) 

-36l _ INTEGER  KUPR1Q0 _ _ _ 

37.  EQUIVALENCE  U88HEAD(1>akUNK100> 

38.  C 

_39. _ C _ IftMPAT.A.  GROUP _ 

AO.  C 

41.  CAPM0N  T0WOATA(14) 

_4  2  * _ LNT  EGER  CRUISEj  _T_9WN  UMj  TORT  VP _ 

43.  integer  famcooe 

44.  INTEGER  YEAR.  MONTH.  DAY.  TIME 

45.  _ R?AL  L&ngtudEa  LATUDE _ 

46.  jNJEGtR  PEGI9N,  NITEDAT.  KURR200 

47.  EQUIVALENCE  (TBwOATAd  J.CKUISE).  < TOWDAT A ( 2 ) a TOWNUM ) 

48.  _ EQUIVALENCE  {tpwQATA ( 3 )aTOWTYH}/  ( TOWDAT  A ( 4 ) a  FAMC99E )  _ 

49.  EQUIVALENCE  ( T0WDAT A ( b ) . Tb AK ) ,  ( T 0 WDA T A { 6 ) , M8NTH ) 

50.  EQUIVALENCE  (T8WDATA(7)aDAY),  ( TOWDAT A ( 8 ) . T I  ME ) 

_51  * _ EQUIVALENCE  JTBWOATA  19  )iLBNiiTUDE)j_.  CTBWDA T A (10 > i LATUDE )_ 

52.  EQUIVALENCE  ( T8W0AT  A (11). PEG  I  BN ) a  C TB*0 ATA (12 > , N I  TED A Y J 

53.  EQUIVALENCE  (T8wDATA(13) aNUKMBOO) 

54.  _  .  .  C  __  ...  _  ..  _ _ _ 

5r  C  SAH»LE  GROUP 

5w.  C 

.57.  _ C9MM9N  SAMPLE  (28) _ 

58*  INTEGER  DEPCOOEa  DEPTHS ( 2 ) 

59.  RFAL  TEMPS ( 3 ) a  SALTS(3)a  0XTGEN(3) 


59 


60* 

61. 

6?*  — 

6. 

64. 

65. 

66* 

67  . 

.68  . - 

69.  C 

70*  C 

_71 . - C_ 

72. 

73. 

_74. _ 

75. 

76.  C 

_77. _ C- 

78.  C 

79. 

„80t- _ 

81. 

82.  C 

_83* _ C_ 

84.  C 

85. 

86* _ 

87. 


R*AL  LIGHT (3) 
KcAL  ALIQUOT, 

.  INTEGER  undef 
EQUIVALENCE  ( 
EQUIVALENCE  ( 
EQUIVALENCE  ( 
EQUIVALENCE  ( 
EQUIVALENCE  < 
-EQUIVALENCE. ( 


,  ChlRRhYL ( 3 ) *  BIBMASS 

VBLFIL 

15)  ,  KURH210  _  - . . 

SAMPLE (1 ),OERL»DE),  ( SAMPLE (2), DEPTHS ) 
SAMPLE { 4  > , TEMMS ) ,  (SAMHLt ( 7 >  , SALTS) 

SAMPLE 1 10) i&XYUEN),  (SAMPLE! 13) *  LIGHT) 
SAMPLE ( 16), CHLMPHYL ) ,  CS AMPLE C 19 ),BI9MASS) 
SAMPLE  I  SO) , AL1UU9T ),  l SAMPLE (21 ), VBLFlL) 

SAMPL£t2E),UNDEF),..  (SAMPLE  127)  JKURR210) _ 


CATCH  GK0UP 


C*MM0N  CATCH ( 2 ) 

Real  npcum 

Integer  kurr4Co  _  _ 

EQUIVALENCE  (CATCH(l), NPCUM),  ( CATCH ( 2 ) , KURK400 ) 


•EAtt.Il  .Y_  GROUP _ - _ 

CQMM0N  FAM I LY ( 6 ) 

_ Integer.  famnamE(5),_.kupr3oo _ 

EQUIVALENCE  ()-AMlLY(l),FAMNAME)#  ( FAMJ  LY  ( 6 )  ,  KURR300 ) 

-GENUS  -GROUP _ 


CMMM0N  GENUS  (  6  ) 

Integer  gename(5),  <u«K3io  _ _ .  .  .  _ 

equivalence  ( genus ( i ) , genaml > ,  (genus(6), kur«310) 


90 

91 
-92 

93 

94 
J9  5 

96 

97 


-C _ SPEC  I  ESJ3P9UP- _ 

C 

C0MM0N  SPECIES ( 6 ) 

—INTEGER  SPENAME(4),  KURR32Q  _ 

EQUIVALENCE  (SPECIESd  ),SPENAME>, 


( SPEC IES(5)»KURR320) 


C 

C 

C 


AREA-JMASTER- 


CAMM9N  I ARMAST ( 6 ) 


-J98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 
113 

ir 

he 

116 

117 

118 


_C . . . . . . . 

c*»****««  . . ****** . . . ***** 

c 

C  _ _ 

C  LOCAL  VARIABLES 
C 

_ INTEGER  npage,  inkerr,  method _ 

INTEGER  H0WMUCH#  nsta 
R*AL  NUMT9T 

_ INTEGER  I 8LNK/ >  »/  _ 

integer  lp/io«/ 

c 

_c _ _ _ SET  PARAMETERS  ANP_MA«E 

C  INITIALISATION  CALL 

c 

_ NOAGE  •  4 _ 

n«ta  ■  o 
Mt  THOU  •  0 

_ _ H*wMUCH  *  2  _ _ _ _ 

C*LL  FAMINIT  {  npage,  INKERR  ) 

I tf  (  INKERR  .NS*  0  )  OUTPUT  INKERR  j  STOP  100 
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20*  C 

21#  C 

2?  - C 


STB*E  FAMILY  NAME  IN  C0MM9N 
AND  RETRIEVE  FAMILY 


2 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 


FAhNAME(I)  • 

FAMNAME(2)  4  4HAUSI 

_ FlMNAMt  (  3  )  *  2HUS  _ _ _ _  _ 

FamNaMeU)  ■  F  aMnamE  ( b )  •  IbLNK 

CALL  UETFAM  {  METH3D,  I  N  K  fc.  R  R  ) 

_ I£_4-1NKERK  »NE#  0  )  8UTMUT  1NKERR  J  ST9P-.200 _ 

C 

c  SPECIES  L69M  STARTS  HERE 

20  CONTINUE 

CALL  OETSPEC  <  IN<E«R  ) 

_ |F_(_  INKPRR  #LT#  0  )  03  i0  70  ... _ _ 

IF  <  INKER”  .NE*  0  >  OUTPUT  I NtfER*  l  STOP  300 

NIJMT0T  #  0 

- WRITEILPj2000) - 

2000  F*RMAT</) 

WRITE(Lp/ 1000)  FAMNAMEj  (itNAME #  SPENAME 
_ tOOO-EflRMAT  -C_2X#5A4#4.X#5A4#  IX,  4A4_J - 


41 

42 

43 

44 

45 


NSTA  *  0 


1. 9  9  P_..T  H  R  8  LUs  m  ._C.A.T.CH_fiC  C  U  R  REJNCE  S 
FOR  THIS  SPECIES 


46 

47 


* 

i4s*. 

150. 


ibl# 
.52. 
153. 
L54. 
155  •_ 


156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 


_ 3Q-CBNTINUE  _ 

CALL  UETCATCH  <  H0WMUCH,  JNKEKH  > 

IF  (  INKERH  .LT.  0  )  C»9  T0  20 

_ IF! _ < _ I  NKER8_.tNE  t-  0 _ I _ 9L!THUT_I^!5E8R_J_SIB^_4oo _ 

c 

c  ENi)  0F  CURRENT  SPECIES 

50  CONTINUE 

WRITE( Lp# 1010 )  CRUISE#  TOwTYP,  T0WNUM,  YEAR#  MONTH,  DAY 

_ 1010-FBRHAT  (1X#3A4,_„3X,  12#  */_'.#  12#  V  V#  12  ) _ ! _ 

WRITE(LP# 1020)  DEPC0OE#  DEPTHS,  TEMPS 
1020  FORMAT ( 3X# A4#  218#  3F8.2  ) 

_ B5.  T  6.-30 _ 

C 

c  HAVE  FINISHED  this  FAMILY#  SB... 

_ C _ STOP* _ 

c 

70  CONTINUE 

_ CAtL-fcL0S£D3 _ 

ST0P 

End 
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Output  from  Demonstration  Program 


EUPWA  JS  I 

THY5A  VP'JDA 

i*inh^a\tha 

...  ico62Mfttl^Q  -  - 

76/16/  7  .... 

99  1 

<000  8*00  14.20 

PO.'iO 

K062*I9C1S0 

76/1 2 /  7 

it _ 4-0 0 _ 5.50 _ 16*75  1  7  »  25 _ 1.8_*_U.Q. 


£OPHAUSl  Db _  THYRANMPaD* _ _B*jysltK?tNS _ 


KO62M0C14b 

99  1 

Kp6?MPC 145  .  . 

76/1?/  h 
<  000 

76/1?/  4 

5*oo 

12*  70 

20*30 

b  300 

400 

13.25 

14.00 

14.75 

EUPHAUSIDb 

THYSANPHBDA 

OKI  eNTAL.  I  S 

EUPHAUSID9 

TNYSANHPBDA 

RECTI  MAT  A 

EUPhaUSIDS 

THYSAMBPBDA 

TK I  CUSP  I  OAT  A 

EUPHAUSIDb 

THVSaNHESSA 

liKtOARlA 

KQ62M6Clbo 

76/16/  7 

99  1 

<  000 

8*00 

14*2.0 

_?J3.  •  4  o 

K062^9C150 

76/1?/  7 

8  1 

100 

20*05 

20*95 

20*35 

K062M9C147 

76/i?/  b 

99  1 

’000 

5*00 

12  *  70 

20*  40 

K062MQC147 

76/i?/  b 

a  l 

100 

20.35 

20.35 

20.35 

K062M6C147 

76/i?/  5 

3  550 

700 

7*50 

8 » bo 

9*b0 

K06PM9C1 47 

76/i?/  b 

ru 

'J 

o 

o 

350 

5*75 

6*25 

7*b0 

K062P9C1 4b 

76/12/  4 

99  1 

<  OQO 

5*00  . 

12*70 _ 

20*30 

K062"OC14b 

76/1?/  4 

7  100 

200 

16*75 

17.75 

20*30 

K062P9C145 

76/1^/  4 

6  200 

300 

14*75 

15*75 

16*75 

K062M9C145 

76/12/  4 

3  55£L 

_ ZQ.Q _ 

7*75 

__«  ..*  2  Q _ 

10*00 

A  U  S_I  Q is _ TfciYS  AN^ESSA _ LfjMlj  ICAU  OAT  A 

K062^9C1A7  76/12/  b 

99  1  iQCO  5*00  12»70  20*40 

KQ62f1tfQllZ _ 76/12/  b 


Database  Definition  in  DDL. 


SCHEMA  Name  15  £e<*SCHt.h.  _ _ 

A*EA  NAME  IS  ^eOST^H  CONTAINS  1000  RAGES 
NUMt3E«  I  *5  1. 

_ ygauR  name  is  ^oh ead._ . . . . . . 

WITHIN  <lo0ST0R,  RANGE  IS  PAGE  1  THRU  MAGE  1 
LOCATION  mbqe  js  DIRECT 

_ NUMBER  jc  100. . . 

grour  name  is  throat a 

WITHIN  Z^OSTOR.  RANGE  IS  PAGE  1  THWU  MAge  J5o 
_ VOCATION ..MOQEJS  CALC  USING  CRUISE/  TOWNUM 

OUPLICATcS  ARE  NOT  ALLOWED 
NUMBER  IR  200* 

_ CRUISE4_ _ _TyPE  IS  CHARACTER/  4. _ 

TBWNUMj  T VPE  IS  CHAWACTtR/  4, 

TBwTyP;  TYPE  IS  CHARACTER/  4. 

_ FA  M  COD  £j _ T  yP£ I  SB  I N  AR  Yj _ 

YEAR;  TYPE  IS  BINARY. 

M0NTH;  T  yP£  IS  BINARY, 

_ DAY; _ Typ£  IS  binary. _ 

time;  t ypE  IS  binary, 

Longtude;  type  is  floating  short, 

_ LATUUe;  TyP£  IS  FLOATING JjHORj^ _ 

Region;  type  IS  Character.  4. 

NITeDAy;  TvPE  IS  CHAWALTtR.  1# 

GROUR  name  IS  SAMPLE 

- - WITHIN  £  «  0  5  T  0  R # “ R'AN g£  rS~P A G E  _1  THKg-F*6E  G5o 

LOCATION  MODE  IS  VIA  SAMSET  SeT 
_  NUMBER  I P  2iO.  _ 


□Encode ; 
demminj 
DehmaX; 
"TEMIN; 

TEaVG; 

JEMAX; 

SALTmIN; 

SALTAVG; 

SALTMAX; 

SXM I N; - 

OXAVG; 

OXMax; 

'LIGHtMIN;' 
LIGHtavG; 
LIGhtmax; 
CHLRMIN; 
CRURA VG; 

Chlrmax; 
BJ0 MASS; ~ 
ALIUUOTJ 


Tvde  Is  CmArAcTEr.  4. 
TYPE  IS  BINARY 
TYPE  IS  BINARY, 

type  IS  ’F  loat  ing  short, 

type  IS  FLOATING  short, 
type  IS  FLOATING  SHORT, 
T  Y  p  E "1  S~  F l B  A  f  rNG~S  H  9  R  tT 
TYPE  IS  FLOATING  SHORT, 

type  is  floating  short. 
"TYPE  "IS“FLOATTNO~SH9RT"T 
TYPE  IS  FLOATING  SHORT, 

type  IS  floating  short. 
Type  IS  FLOATING  SHORT,- 
TyP£  IS  FLOATING  Short, 
Type  IS  FLOATING  SHORT, 

'  TYPE- IS "FLOAT  INC"  SHORT, - 
TYP£  IS  FLOATING  SHORT, 
TYPE  IS  FLOATING  SHORT, 
TYPE  “IS  FLOATING  SHORTr 
TYPE  IS  FLOATING  short. 
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VPLUU  T  vpt  i 
UMJfc>lJ  T  vP£  1 
UN.DE>-?)  _  TvPt  I 

U\Dt>-i;  TvpE  I 
UNUE^AJ  Tvt>L  1 

UN0fc,E5)  TVP£  I 

group  name  is  catch 

WITHIN  Z«^ST3 
_  LOCATION  bOCe 
NUMBER  1*5  *00 
NPCUMJ  TVPfc  I 

GROyP  NAM£  IS  rA^lL 
W I T H I N  ZQqHTD 
LOCATION  "ODE 

_  DUPLICATES 

NUMBER  I c  300 
FaMNAME)  T  vpE  I 


S  v l«at ING  SHORT, 
S  BINARY, 

S  BINARY,  _ _ 

S  BINARY, 

S  BINARY. 

s  BINARY. 


Rj  RANGE  IS  PAur  3bl  THRU  PAGE  10C0 
IS  VIA  SAMCAT  SET,  STOKASt  I S_ SHE CAT 

s  floatik,g  Short. 

Y 

R,  RANGE  IS  PAGF  3bl  THRU  HAUL  1000 
IS  CALC  USING  FABNAMe 
are_not  ALLHWEP_ _ _ _ 

s  CHARACTER*  17. 


group  name  IS  SfNus _  _  _  _ _ _ 

WITHIN  l°9STOR#  RANGE  TS  PAGE'  3bl  THRU  PAGE  1000 
LOCATION  BODE  IS  CALC  USING  GenAMe 

_ DUPLICATES  AR£  NOT  ALLOWED _ 

NUMBER  IS  310. 

G£N AME )  TYPE  IS  CHARACTER/  18* 

GROUP  N a M£  IS  SPECIES 

w'l  Th  IN"  Z^OSTdR*- RA’NgE  IS  PA'GE  i5i~THW  PAGE  1Q00 
LOCATION  BODE  is  VIA  SPECSET 
NUMBER  Ic  3pO. 

SpEnamE;  Type  IS  Ch*rAcT£ra  16* 
set  name  is  tbwset 

dRNEK  is  ZdOwE AD 

- ORDEp"I  S 'FlRS'Tl 


Set 


M£MBeR  IS  T8WQATA 

I  NCLUS  I  0KI  IS  AUTOMATIC 
"SELECTION'  IS  TM*U' "CURReMT"  OF  “SET." 
SET  Name  is  SA«SET 
owner  IS  TOWMaTA 
"  ORDER  is  next, 

-EMBER  is  sam°le 

INCLUSION  IS  AUTOMATIC 

LYnked  -f-«r-owMER 

SELECTION-  is  THRU  CURRENT  OF  SET. 
S£T  Name  IS  F AmSET 

“  OWNER  IS“ZOB«eAD' - 

ORDER  is  FIRST* 

M£MBtR  is  easily 

i  NCLUS  I  ONI  IS  aXTTRNATIC 

selection  is  th«u  current  of  set. 
set  name  is  genuset 
OWNER  is  Family - 

ORDER  is  FIRST. 
member  is  genus 

INCLUSION'  IS'aUtRMatIC 

selection'  is  thru  current  of  set. 
set  name  is  spccset 
owner  is  genus  - - - 

ORDER  IS  NEXT. 

MEMBER  is  SPc  C I £S 
. INCLUSION  IS  automatic 

linked  T°  owner 

SELECTION  is  THRU  CURRENT  of  set. 


'«MP» I 


St  T  Name  IS  She  CAT 
0WN£W  IS  SHtntS 

_ O.RPtK.JS  Ti^sy* _ 

ME^OtW  IS  Catch 

INCLUSION  IS  AUTOMATIC 

_  LINKED  T«  OwNEW 

SELECT  I 0M  IS  THWU  CUWWLNT  OF  SET* 
SET  Name  IS  Sa«CAT 

_ 0WNE*  is  sample _ _ _ __ _ 

«*D£W  IS  WE  XT. 

MEMritR  IS  CATCH 

_ INCLUSION  IS  AMI0!!A.T.IC. _ 

LINKED  T«  Okneh 

SELECTION  IS  fHl<U  CUWWeNT  OF  SET. 

....  END. _  ... 

SUBSCHEMA  Name  IS  ZOOHLaN  of  schema  zoescMt 
COMPBNtNTS  AWE  ALL. 

ND. 
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